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Suonare 

MUSIC MASTER trasforma il ino CI6 in 
un fantastico strumento musicale. 

Anzi, ancora (li più: puoi scegliere tra il 
dolce e melanconico flauto, o il più 
sfrontato e moderno synt o ancora il 
simpatico ed essenziale xilofono. 

Carica il programma SINTETIZZA TORE e 
sperimenta, utilizzando la apposita tastiera, 
le grandi possibilità del tuo piccolo, grande 
computer. 

Le pagine seguenti ti informeranno su come 


è facile. 

ciò sia possibile, ti ricorderanno i principi 
fondamentali della musica. 

Qualunque sia la tua preparazione in 
questa materia, sarai in grado di leggere e 
riprodurre col tuo Ciò qualsiasi brano 
musicale. 

Grazie al programma MUSIC EDITOR 
potrai infatti introdurre nella memoria del 
computer la musica composta da te o 
ricavala da spartiti, per poi riascoltarla a 
tuo piacimento. 
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La memoria occupata dai vetto¬ 
ri 

In un mio programma di archivio, che fa 
largo uso di matrici e vettori, ho il proble¬ 
ma del calcolo preventivo della memoria 
che un'ulteriore istruzione DIM andreb¬ 
be ad occuparmi. Questo per evitare che 
il programma venga interrotto nel bel 
mezzo dell'esecuzione a causa dell'esau¬ 
rimento della RAM disponibile. Esiste 
qualche sistema per conoscere in antici¬ 
po la memoria che verrà occupata dal 
dimensionamento e dal successivo riem¬ 
pimento di un vettore? 

S. Vicentini 

R. Un sistema esiste, ma è preciso sol¬ 
tanto a patto che si inseriscano nel vet¬ 
tore - o nella matrice - stringhe di lun¬ 
ghezza predeterminata. Se il vettore o 
la matrice sono invece numerici, il siste¬ 
ma è più facile. 

L’occupazione di memoria di un vettore 
o matrice è infatti data da: 

5 byte per il nome della matrice 
2 byte per ogni sua dimensione 

2 byte per elemento nel caso di variabili 
intere 

5 byte per elemento nel caso di variabili 
in virgola mobile 

3 byte per elemento nel caso di variabili 
di stringa 

1 byte per ciascun carattere negli ele¬ 
menti di stringa 

Per passare ad un esempio pratico, la 
semplice istruzione DIM A$ (50) provo¬ 
cherà un’occupazione di memoria di: 


5 byte per il nome A$ 5+ 

2*1 byte (monodimensionale) 2+ 
3*50 byte per gli elementi 150= 


byte occupati dalia DIM 157 


Il vettore non è però ancora stato riem¬ 
pito con i vari elementi: se prevediamo 
ad esempio di riempirlo con dei nomi i 
quali abbiano tutti una lunghezza fissa 


di 10 caratteri (aggiungendo spazi ai no¬ 
mi più brevi e troncando quelli più lun¬ 
ghi), l'occupazione totale di memoria di¬ 
venterà: 

byte occupati dalla DIM 157+ 

1 byte *50 elem. *10 caratt. 500= 

byte a vettore pieno 657 

Come si vede - e al contrario di ciò che 
molti pensano - l’istruzione DIM non 
riserva affatto tutta la memoria occupa¬ 
ta dal vettore carico, ma soltanto quella 
occupata dal vettore vuoto, e la diffe¬ 
renza tra questi due valori è molto con¬ 
sistente (nell’esempio riportato è di 
mezzo Kbyte, ma ovviamente aumenta 
con l’aumentare delle dimensioni del 
vettore). 

Con questi semplici calcoli - che natu¬ 
ralmente possono essere eseguiti diret¬ 
tamente dal programma di archivio — 
sarà possibile conoscere preventiva¬ 
mente se il dimensionamento e il carica¬ 
mento di un nuovo vettore ci farà o 
meno esaurire la memoria libera. 


Contare le battete con Speed- 
Scrlpt 

Utilizzo molto spesso il vostro ottimo 
wordprocessor SpeedScript e mi trovo 
molto bene. Avrei tuttavia la necessità di 
contare le battute dei testi che stendo: è 
possibile aggiungere questa opzione allo 
stesso SpeedScript e, in caso affermati¬ 
vo, in quale modo? 

F. Margarini 

R. Il sistema per contare le battute di 
un testo è molto semplice, e non richie¬ 
de alcuna modifica a SpeedScript. Esso 
infatti salva i suoi testi come file binari 
(PRG), i quali possono essere tranquilla¬ 
mente letti da disco al di fuori di Speed¬ 
Script. Supponiamo ad esempio che un 
testo sia stato salvato su disco con il 
nome “LETTERA”: per contarne le bat¬ 


tute sarà sufficiente uscire da Speed¬ 
Script e mandare in esecuzione il se¬ 
guente programmino: 

10 OPEN3,8,3,"LETTERA" 

20 IF ST =64THEN40 
30 GET#3,A$: I = 1 + 1 :GOT020 
40 PRINT"BATTUTE:"1-2 

50 CLOSE3: END 

La linea 30 legge il testo un byte per 
volta ed incrementa il contatore I. La 
linea 40 stampa il valore finale di I me¬ 
no 2 byte appartenenti all’hader del file 
che, ovviamente, non sono battute di 
testo. Il valore ottenuto terrà conto di 
tutte le battute effettive, comprendenti 
cioè i caratteri di controllo, i caratteri 
di ritorno carrello, ecc. 

51 noti che lo stesso programmino è per¬ 
fettamente utilizzabile anche per conta¬ 
re le battute di testi su disco generati 
da Easy Script. Poiché quest’ultimo 
wordprocessor salva i testi come file se¬ 
quenziali, è anche possibile visualizzarli 
sullo schermo mentre vengono letti, mo¬ 
dificando la linea 30 in: 

30 GET# 3,A$:I=l+l:PRlNTA$;:GOTO20 

La visualizzazione diretta di file generati 
da SpeedScript richiederebbe invece un 
programmino un po’ più complesso. 

Un po' d’ordine 

Ho utilizzato il programma Relfiling Sy¬ 
stem 1.0 per realizzare un archivio dei 
miei libri (tanfi...), con ottimi risultati. 
Sento tuttavia fortemente la mancanza 
della possibilità di ordinare alfabetica¬ 
mente i record, in modo da ottenere de¬ 
gli stampati su cui sia facile andare a 
ritrovare un certo titolo. Potete fornirmi 
le modifiche da apportare al programma 
per poter ottenere l'ordinamento alfabe¬ 
tico dei record? 

M. Pncci 
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R. Fornire Relfiling System 1.0 della 
possibilità di effettuare ordinamenti dei 
record significa modificare pesantemen¬ 
te la struttura del programma. Stiamo 
lavorando - compatibilmente con gli al¬ 
tri impegni - a una versione 2.0 del 
programma, che, oltre a consentire or¬ 
dinamenti alfabetici dei record, permet¬ 
terà di utilizzare indici multipli e avrà 
altre nuove e interessanti opzioni, man¬ 
tenendo comunque la compatibilità con 
i file dati generati dalla versione 1.0. 


Gct con cursore 

Vorrei sapere come poter visualizzare il 
cursore durante l'inserimento di dati in 
un programma, tramite un'istruzione 
GET invece che una INPUT. 

G. Garelli 

R. Esiste una gran quantità di piccole 
routine che, alternando la stampa di 
uno spazio in campo inverso alla stam¬ 
pa di uno spazio normale, simulano la 
presenza del cursore anche in un'istru¬ 
zione GET. Un sistema tuttavia molto 
meno complesso e macchinoso consiste 
nell’utilizzo delle due locazioni di memo¬ 
ria 204 e 205, che controllano rispetti¬ 
vamente il lampeggio del cursore e la 
sua temporizzazione. Le linee: 

10 POKE204,0:POKE205,20 
20 GETA$:IFA$=""THEN20 
30 PRINTA$;:GOTO20 

permettono di visualizzare il cursore in 
un’istruzione GET e sono infinitamente 
più semplici delle routine di solito utiliz¬ 
zate per questo scopo. 

La POKE nella locazione 204 abilita il 
cursore, mentre quella nella 205 ne 
controlla la velocità di lampeggio. 

Spaziature personalizzata 

Con Easy Script e stampante Commodo¬ 
re 1526 non è possibile ottenere la spa¬ 
ziatura appropriata per la carta bollata, 
malgrado la stampante - tramite appositi 
programmi - sia in grado di fornire 
un 'ampia gamma di spaziature. 

Pensavo che la spaziatura desiderata po¬ 
tesse ottenersi con SpeedScript, ma uti¬ 
lizzando il carattere di controllo "s" ciò 
che si ottiene è sempre un multiplo della 
spaziatura standard, come d'altra parte 
avviene con TEasy Script. È possibile, in 
qualche modo, ottenere che la stampan 
te utilizzi la spaziatura appropriata per 
ogni esigenza? 

A. Lisi 

R. Le stampanti Commodore designate 
da un numero finale pari (1526 e 802) 
offrono un controllo della spaziatura più 
completo di quelle designate da un nu¬ 
mero dispari (1525, 801 e 803). Ben¬ 
ché il manuale della 1526 riporti che 
l’avanzamento della carta avviene per 
passi di 1/144 di pollice, il valore effet¬ 
tivo di un passo ammonta, come nella 


802, ad 1/216 di pollice (può essere, 
tuttavia, che le 1526 più vecchie pre¬ 
sentino effettivamente valori di 1/144 
di pollice). 

All’accensione il valore di spaziatura 
standard della 1526 e della 802 è di 
36/JJ16 (=1/6, cioè sei linee per polli¬ 
ce). E possibile modificare la spaziatura 
inviando alla stampante un CHR$(n), in 
cui n assume valori tra 0 e 127 a seconda 
della spaziatura che si intende ottenere, 
attraverso un canale aperto con una 
OPEN il cui indirizzo secondario sia 6. 
Mandando per esempio alla stampante 
un CHR$ (72), si otterrà una spaziatura 
pari a 72/216 di pollice, cioè si avranno 
tre linee per pollice; un CHR$ (108) 
provocherà invece la stampa di due li¬ 
nee per pollice. Poiché il valore stan¬ 
dard, come abbiamo visto, è 36, valori 
inferiori provocheranno una spaziatura 
ridotta, mentre valori superiori provo¬ 
cheranno un aumento di quest’ultima. 
Come realizzare tutto ciò con Speed¬ 
Script 3.0? 

Per inviare il CHR$ (n), che definisce la 
spaziatura prescelta, dovremo utilizza¬ 
re i “codici definibili dall’utente” (Cfr. il 
numero di Ottobre 1985 a pag. 57): 
prima del testo e dopo i codici di forma¬ 
to premeremo i tasti CTRL+Lira e quin¬ 
di il tasto 1. Apparirà il numero 1 in 
campo inverso. Digitiamo quindi = e il 
numero da inviare nell’istruzione 
CHR$, infine premiamo RETURN. Se 
ad esempio questo numero è 41, sulle 
schermo dovrà apparire: 

1 = 41«- 

dove 1 sarà in campo inverso. Nella 
linea sottostante premeremo ancora 
CTRL+Lira seguiti da 1, quindi RE¬ 
TURN: apparirà ancora il numero 1 in 
campo inverso. 

Per stampare il testo usando la spazia¬ 
tura “personalizzata”, invece di preme¬ 
re CTRL+P premeremo SHIFT + 
CTRL + P: apparirà la scritta “Stampa 
su: Video, Disco, Stampante”. Per un 
piccolo “bug” (che stiamo correggendo) 
all'interno del programma, invece di 
premere il tasto “S” per Stampante do¬ 
vremo premere il tasto “F” per ottenere 
da parte di SpeedScrept 3.0 le due do¬ 
mande circa il numero di periferica e 
indirizzo secondario. 

Risponderemo alla prima con il valore 
4 e alla seconda con il valore 6: ciò 
equivale all’istruzione BASIC OPEN4, 
4, 6. 

Tutto il documento potrà quindi essere 
stampato con la data spaziatura. 

Infine, un trucchetto anche per i posses¬ 
sori di stampanti “dispari": 1525, 801 
e 803. Con queste stampanti è possibile 
ottenere i listati dei programmi con una 
spaziatura doppia (che li rende più leg¬ 
gibili) usando l’istruzione: 

OPEN1 30,4:CMD1 30:LIST 

in quanto l’apertura di un canale con 
numero superiore a 128 provoca rag¬ 
giunta automatica di un linefeed dopo 
ogni ritorno carrello. 


Nuove e vecchie versioni del 
C64 

Ho sentito dire che alcuni modelli di C64 
si differenziano dagli altri per il colore 
dello schermo, e che sono state realizza¬ 
te più versioni del C64. non distinguibili 
esternamente tra loro. Esiste un sistema 
per conoscere il "grado di aggiornamen¬ 
to" del mio C64? 

M. Turini 

R. A parte le differenze tra i modelli 
americani e quelli europei (che differi¬ 
scono per il sistema di standard televisi¬ 
vo adottato), ci risulta esistono soltanto 
due “versioni" di C64. La prima è stata 
commercializzata fino a circa la metà 
del 1984, e conteneva dei piccoli difetti 
nel sistema operativo che sono stati cor¬ 
retti nella seconda. Il primo di questi 
difetti consisteva nel verificarsi di un 
“crash” del sistema, se si andava a edi¬ 
tare una linea di programma visualizza¬ 
ta sulla riga più bassa dello schermo. Il 
secondo ( che non è propriamente un 
difetto) era la necessità, se si desidera¬ 
va far apparire un carattere sullo scher¬ 
mo tramite una POKE, di effettuare an¬ 
che la POKE analoga in mappa colore, 
pena la non visualizzazione del caratte¬ 
re. 

Non ci risulta invece che esistano C64 
con colori dello schermo differenti dal 
solito blu/azzurro. Le modifiche appor¬ 
tate al sistema operativo del C64 sono 
le seguenti: 

1. È stata inserita una subroutine in 
$E4D3: 

E4D3 STA $A9 

E4D5 LDA #$01 

E4D7 STA $AB 

E4D9 RTS 

2. Nella locazione SE4DA il colore per 
cancellare una linea di testo viene ora 
preso dalla locazione $0286 (codice co¬ 
lore corrente), mentre precedentemen¬ 
te lo era dalla $D021 (codice colore di 
fondo). 

3. È stata modificata una subroutine in 
$E57C; essa ora appare come: 


E57C 

JSR 

$E9F0 

E57F 

LDA 

#$27 

E581 

INX 


E582 

LDY 

$D9,X 

E584 

BMI 

$E58C 

E586 

CLC 


E587 

ADC 

#$28 

E589 

INX 


E58A 

BPL 

$E582 

E58C 

STA 

$D5 

E58E 

JMP 

$EA2 4 

E591 

CPX 

$C9 

E593 

BEQ 

$E598 

E595 

JMP 

$E6ED 

E598 

RTS 


E599 

NOP 
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4. L’istruzione in $E621 è stata modifi¬ 
cata da JSR $E6ED in JSR $E591. 

5. La routine in $EA07 è stata modifica¬ 
ta come segue: 

EA07 JSR $E4DA 
EAOA LDA #$20 


LA TUA BIBLIOTECA 
PRATICA D’INFORMATICA 
PERSONALE. 


EAOC STA ($Dl) ,Y 
EAOE DEY 
EAOF BPL $EA07 
EAl 1 RTS 
EAl2 NOP 

6. I comandi nelle locazioni $EF94 ed 
$EF96. precedentemente: 

EF94 STA $A9 
EF96 RTS 

sono stati modificati in: 

EF94 JMP $E4D3 

7. Il contenuto della locazione $E4AC 
è stato modificato da $5C in $81, men¬ 
tre quello della $FF80 da $00 in $03. 
Per verificare il livello di “upgrading” al 
quale si trova il sistema operativo del 
proprio C64 è possibile disassemblare 
queste locazioni tramite il SuperMoni- 
tor e vedere quindi se la ROM è del 
tipo aggiornato oppure no. 

L’attesa in linguaggio macchina 

Sto iniziando i primi esperimenti di pro¬ 
grammazione in linguaggio macchina at¬ 
traverso l'ottimo SuperMonitor da voi 
pubblicato. Non sono però ancora riusci¬ 
to a realizzare una routine in linguaggio 
macchina che attenda la pressione di un 
tasto prima di proseguire nell’esecuzione 
del programma. 

Potreste suggerirmela? 

F. Trevisan 

R. Per un caso del genere viene in aiuto 
una delle routine di sistema operativo 
già “pronte per Fuso" nella ROM del 
C64. Tale routine, denominata GETIN 
e situata all’indirizzo $FFE4, prende un 
carattere dal buffer di tastiera e lo cari¬ 
ca nell’accumulatore. Se il buffer è vuo¬ 
to (nessun tasto premuto), l’accumula¬ 
tore conterrà il valore zero, altrimenti 
conterrà il codice del tasto premuto. 

La nostra routine di attesa potrà quindi 
avere la forma: 

033C JSR $FFE4 
033F BEQ $033C 
0341 RTS 

dove l’istruzione $033F rimanda in loop 
la routine, se l’accumulatore contiene il 
valore zero. In questo caso la routine è 
locata nel buffer del registratore 
($0330, ma può essere rilocata in qua¬ 
lunque altra area di memoria, semplice- 
mente sostituendo l’argomento della 
BEQ con la locazione in cui è contenuta 
la JSR. 
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col personal 
computer 
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BASIC, voi 1 
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Ed è subito 
BASIC. VOI 2 
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pret a portar £ 
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il software 
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I famosi Softest 
prove rivisitate 
lei package piu popolar 
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DIVISIONE GRANDI OPERE 


MLX 


M LX è un programma che permet¬ 
te di inserire listati in linguaggio 
macchina esenti in modo assoluto da 
errori e senza la perdita di tempo del 
dover battere e controllare lunghe se¬ 
quenze di istruzioni DATA. 

Molti dei nostri listati di programmi in 
linguaggio macchina hanno il formato 
MLX (li riconoscete dal fatto che sono 
esclusivamente numerici) e richiedono 
quindi che MLX sia caricato in memoria 
ed eseguito prima della battitura del li¬ 
stato. 

MLX vi chiederà l’indirizzo della loca¬ 
zione di partenza e quello della locazio¬ 
ne finale del programma da caricare. 
Questi valori sono sempre indicati nel¬ 
l’articolo che accompagna il listato. 
MLX vi segnala automaticamente gli er¬ 
rori di battitura MENTRE STATE DIGI¬ 
TANDO IL LISTATO e vi chiede di 
reinserire la linea errata. L’ultimo nu¬ 
mero battuto di ogni linea rappresenta 
il checksum e viene visualizzato in re¬ 
verse. 


di C. Brannon 

trad. e adatt. 

di M. Crlstaib Grizzi 


Sono inoltre disponibili altri comandi, 
quali: 

SHIFT-N nuovo indirizzo: permette di 
cambiare l'indirizzo della linea che vole¬ 
te battere ed è utile nel caso si inserisca¬ 
no i listati in più parti. 

SHIFT-D display: lista i dati inseriti tra 
due indirizzi di inizio e fine. 

SHIFT-L load: carica un file da nastro 
o SH1FT-S save: salva su nastro o disco 
un file in formato MLX. 

Una volta battuto il listato, e salvatolo 
tramite MLX, si potrà caricare diretta- 
mente il programma con un’istruzione 
LOAD “nome del file”, 1,1 per il regi¬ 
stratore, oppure LOAD “nome del fi¬ 
le”,8,1 per l’unità a dischi, salvo diverse 
indicazioni date negli articoli corrispon¬ 
denti ai vari programmi, fi programma 
sarà generalmente mandato in esecu¬ 
zione con una SYS (indirizzo di parten¬ 
za). 

La versione originaria di MLX per C64 
ha subito, dalla prima pubblicazione, di¬ 
versi ritocchi e miglioramenti, fino alla 


versione 2.0 qui presentata. 

È stato in primo luogo modificato il colo¬ 
re di fondo dello schermo e del bordo, 
in modo da risultare meno stancante 
alla vista; sono state ulteriormente per¬ 
fezionate le routine in linguaggio mac¬ 
china di salvataggio e caricamento dei 
programmi; è cambiata la forma del 
cursore e, cosa più importante, è stato 
aggiunto un tastierino numerico per gli 
utenti che si trovano più a loro agio con 
una diversa disposizione dei tasti. 

Oltre a poter usare i soliti tasti numeri¬ 
ci, sono stati ridefiniti alcuni tasti alfabe¬ 
tici, in modo da generare ugualmente 
dei numeri. I tasti ridefiniti sono i se¬ 
guenti: 

U I O 7 8 9 

H J K L diventano 0 4 5 6 

M, . 12 3 

Le persone abituate ad usare tali tastie- 
rini accresceranno senz’altro, in brevis¬ 
simo tempo, la velocità di battitura dei 
programmi in linguaggio macchina. 


MLX 


100 PRINT"{CLR}{CYN}";CHR$(142);CHR$(8); : 



POKE53280,0 : 

POKE53281,0 

: rem 

71 

101 

POKE788, 52 : REM DISABILITA 

RUN/STOP 





: rem 

89 

no 

PRINT"{RVS}{ 

40 SPAZI}"; 

: rem 

176 

120 

PRINT"{RVS}{ 

1 5 SPAZI}{DES}{OFF}{< 

*>] 


£{RVS}{DES} {DES}{ 2 SPAZI}[<*>){OFF} 

T<*>]£{RVS)£{RVS){ 13 SPAZI}"; 

:rem 250 

130 PRINT"{RVS}{ 15 SPAZI}{DES}[<N>][<H>1 
{DES} { 2 DES} {OFF}£{RVS}£[<*>]{OFF} 
[< * >]{RVS}{ 13 SPAZlT"; : rem 220 

140 PRINT"{RVS}{ 40 SPAZI}" :rem 120 

200 PRINT"{ 2 GIU 1 }{PUR}EDITOR DI CODICE 
MACCHINA VERSIONE 2.0{ 3 GIU’}" 

:rem 126 

210 PRINT"[<5>}{ 2 SU} INDIRIZZO DI PARTE 
NZA{ 2 SPAZI}"; :INPUTS:F = 1- F:C$=CHR$( 
31+119*F) : rem 85 

220 IFS< 2560R(S> 40960ANDS< 491 52)ORS>5324 7 
THENGOSUB3000:GOTO210 : rem 235 

225 PRINT:PRINT:PRINT :rem 180 

230 PRINT"(<5>]{ 2 SU} INDIRIZZO CONCLUSI 
VO{ 3 SPAZI}";:INPUTE:F=1-F:C$=CHR$(3 
1+119*F) :rem 92 

240 IFE<2560R(E>40960ANDE<49152)ORE>53247 
THENGOSUB3000:GOTO230 : rem 183 

250 IFE<STHENPRINTC$;"{RVS}INDIRI ZZO CONC 


LUSIVO<INDIRIZZO INIZIALE" : rem 200 
255 IFE<STHENGOSUBl000:GOTO230 :rem 119 
260 PRINT:PRINT:PRINT :rem 179 

300 PRINT"{CLR}";CHR$(14):AD=S:POKEV+21,0 

: rem 225 

310 A=1:PRINTRIGHTS("0000"+MID$(STR$(AD), 
2),5):FORJ=ATO6 :rem 227 

315 FORJ=AT06 :rem 33 

320 GOSUB570:IFN=-1THENJ=J+N:GOTO320 

:rem 228 

390 IFN=-211THEN710 :rem 62 

400 IFN=-204THEN790 :rem 64 

410 IFN=-206THENPRINT:INPUT"{GIU'} INSERÌ 
RE IL NUOVO INDIRIZZO";ZZ : rem 13 

414 IFN=-206THENIFZZ<SORZZ>ETHENPRINT" 

{RVS}ESCE DAL CAMPO DI VALORI INDICAT 
O" : rem 105 

415 IFN = -206THENIFZZ<SORZZ>ETHENGOSUBl000 

:G0TO410 :rem 202 

417 IFN=-206THENAD=ZZ:PRINT:GOTO310 

:rem 238 

420 IFNO-196THEN480 :rem 133 

430 PRINT:INPUT"LISTATO: DA";F:PRINT" 

{ 9 SPAZI}A";:INPUTT :rem 183 

440 IFF<SORF>EORT<SORT>ETHENPRINT"MINIMO" 
;S;" MASSIMO"; E;"!(<5>)":GOTO430 

:rem 147 

450 FORI=FTOTSTEP6:PRINT:PRINTRIGHTS("000 
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0"+MID$(STR$(I),2),5):rem 30 
451 FORK=0TO5:N=PEEK(I+K):PRINTRIGHTS("00 
"+MIDS(STR$(N),2) ,3) :rem 66 

460 GETAS:IFA$>""THENPRINT:PRINT:GOTO310 

:rem 25 

470 NEXTK:PRINTCHRS(20)NEXTI:PRINT:PRIN 
T:GOTO310 : rem 50 

480 IFN<OTHENPRINT:G0T0310 :rem 168 

490 A ( J ) =N : NEXTJ treni 199 

500 CKSUM=AD-INT(AD/256)* 256 : FORI = 1T06:CK 
SUM=* (CKSUM+A (I ) ) AND255: NEXT :rem 200 

510 PRINTCHRS(18);:GOSUB570:PRINTCHRS(146 

) ; :rem 94 

511 IFN=-1THENA=6:G0T0315 :rem 254 

515 PRINTCHRS(20):IFN=CKSUMTHEN530 

:rem 122 

520 PRINT:PRINT"{RED)LA LINEA E' STATA IN 
SERITA IN MANIERA" :rem 157 

525 PRINT"ERRATA. RIPETERE(<5>]":PRINT:GO 
SUBÌ 000:GOTO310 :rem 27 

530 GOSUB2000 :rem 218 

540 FORI=1T06:POKEAD+I-1,A(I):NEXT:POKE54 
272,0:POKE54273,0 trem 227 

550 AD=AD+6:IFAD<ETHEN310 :rem 212 

560 GOTO710 trem 108 

570 N=0:Z=0 :rem 88 

580 PRINT"[<£>]"; : rem 81 

581 GETAS:IFA$=""THEN581 :rem 95 

582 AV=-(A$="M") - 2* (A$=",")-3*(A$=".")-4* 
(A$ = "J")- 5*(A$ = "K")-6*(A$ = "L") 

:rera 41 

583 AV=AV-7*(A$="U")-8*(A$="I")-9*(AS="O n 

):IFA$="H"THENA$="0" :rem 134 

584 IFAV>0THENA$=CHR$(48+AV) :rem 134 

585 PRINTCHRS(20);:A=ASC(A$):IFA=130RA=44 

ORA= 32THEN670 :rem 229 

590 IFA>128THENN=-A:RETURN :rem 137 

600 IFA020THEN630 treni 10 

610 GOSUB690:IFI=1ANDT=44THENN=-1 :PRINT" 
{SIN} {SIN}"; :GOTO690 treni 172 

620 GOTO570 treni 109 

630 IFA<48ORA>57THEN580 treni 105 

640 PRINTAS; :N=N*10+A-48 :rem 106 

650 IFN>255THENA=20:GOSUBl000:GOTO600 

treni 229 

660 Z=Z+1tIFZ<3THEN580 trem 71 

670 IFZ^OTHENGOSUBl000 t GOTO570 trem 114 

680 PRINT"RETURN trem 240 

690 S%=PEEK(209)+256*PEEK(210)+PEEK(211) 

trem 149 

691 FORI = 1T03 1 T=PEEK( S%-1) trem 67 

695 IFT< >44ANDT< >58THENPOKES%-1,32 t NEXT 

trem 205 

700 PRINTLEFTS("{ 3 SIN}",I-1);tRETURN 

t rem 7 

710 PRINT"{CLR}{RVS}*** SAVE *** 

{ 3 GIU'}" trem 236 

715 PRINT"{ 2 GIU'}PREMERE {RVS} RETURN 
{OFF} PER USCIRE DAL SAVE{GlU T T R 

trem 103 

720 F$=""tINPUT"{GIU 1 }NOME DEL FILE";F$:I 
FF$=""THENPRINT:PRINT:GOT0310 

trem 42 

730 PRINT:PRINT"{ 2 GIU'}{RVS}N{OFF}ASTRO 
O {RVS}D{OFF}ISCO: (N/D)" :rem 128 

740 GETAS:IFA$< >"N"ANDA$< >"D"THEN740 

trem 30 

750 DV=1-7*(A$ = "D"):IFDV=8THENF$ = "0 : "+F$ : 

OPENl5,8,15,"S"+FS:CLOSEl5 trem 212 

760 TS=F$:ZK=PEEK(53)+256*PEEK(54)-LEN(T$ 
):POKE782,ZK/256 trem 3 


762 POKE781,ZK-PEEK(782)* 256 :POKE780,LEN( 

T$):SYS65469 trem 109 

763 POKE780,1:POKE781,DV:POKE782,1:SYS654 

66 trem 69 

765 K=S:POKE254,K/256:POKE253,K-PEEK(254) 

*256:POKE780,253 trem 17 

766 K=E+1:POKE782,K/256:POKE781 ,K-PEEK(78 

2)* 256 :SYS65496 trem 235 

770 IF(PEEK(783)AND1)OR(191ANDST)THEN780 

trem 111 

775 PRINT"{GIU 1 }FATTO.{GIU 1 }":GOT0310 

trem 201 

780 PRINT"{GIU'}ERRORE NEL SAVE-RIPROVA!" 

:IFDV=1THEN720 trem 104 

781 OPENl5,8,15:INPUT#15,El$,E2$:PRINTEl$ 

;E2$ tCLOSEl5:GOTO720 trem 103 

790 PRINT"{CLR}{RVS}*** U)AD *** 

{ 2 GIU'}" trem 212 

795 PRINT"{ 2 GIU'}PREMERE {RVS}RETURN 
{OFF} PER USCIRE DAL LOAD{GIU T T 55 

trem 96 

800 F$ = ""tINPUT"{ 2 GIU 1 }NOME DEL FILE";F 
$:IFF$=""THENPRINT:GOTO310 trem 115 
810 PRINT:PRINT"{ 2 GIU'}{RVS}N{OFFjASTRO 
O {RVS}D{OFF}lSCO: (N/D)" :rem 127 
820 GETAS: IFA$O"N"ANDA$O"D"THEN820 

:rem 28 

830 DV=1-7*(A$="D"):IFDV=8THENF$="0:"+F$ 

trem 157 

840 T$=F$:ZK=PEEK(53)+256*PEEK(54)-LEN(T$ 

):POKE782,ZK/256 trem 2 

841 POKE781 ,ZK-PEEK(782)* 256 :POKE780,LEN( 

T$):SYS65469 trem 107 

845 POKE780,1 :POKE781,DV:POKE782,1 :SYS654 
66 trem 70 

850 POKE780,0:SYS65493 trem 11 

860 IF(PEEK(783)AND1)OR(191ANDST)THEN870 

: rem 111 

865 PRINT"{GIU’}FATTO.":GOTO310 trem 184 
870 PRINT"{GIU’JERRORE NEL LOAD-RIPETI! 

{GIU 1 }":IFDV=1THEN800 trem 19 

880 OPENl5,8,15:INPUT#15,E1$,E2$:PRINTEl$ 
;E2S:CLOSEl5:GOTO800 trem 102 

1000 REM CICALINO trem 231 

1001 POKE54296,1 5 :POKE54277,45 :POKE54 278, 

165 trem 207 

1 002 POKE54 276,33 :POKE54273,6 :POKE54272,5 

trem 42 

1003 FORT=1TO200:NEXT:POKE54276,32:POKE54 
273,0:POKE54272,0:RETURN trem 202 

2000 REM CAMPANELLO trem 130 

2001 POKE54296,15:POKE54277,0:POKE54278,2 

47 trem 152 

2002 POKE54276,17:POKE54273,40:POKE54272, 

0 trem 86 

2003 FORT=lTOl00 :NEXT:POKE54 276,16 : RETURN 

trem 57 

3000 PRINTCS;"{RVS} NON IN PAGINA ZERO O 
SU{DES}ROM "tGOTOl000 trem 240 
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Il trasferimento dei file 
su disco 


di E. Sarcina 



Molti lettori sienranente non 
hanno le idee chiare ani modo in 
cui vengono registrati program¬ 
mi e dati sn disco. In questo arti¬ 
colo cerchiamo di dare una ri¬ 
sposta alle domande più ricor¬ 
renti, e forniamo un utile pro¬ 
gramma in grado di trasferire i 
file da un disco all’altro. 

P robabilmente tutti voi avete in casa 
un giradischi, e anche i pochi che 
non ne possiedono uno hanno sicura¬ 
mente avuto occasione di utilizzare que¬ 
sto apparecchio. Esso è in grado di leg¬ 
gere un segnale sonoro da un disco che 
gira, tramite una testina libera di spo¬ 
starsi lungo il suo raggio; inoltre la lettu¬ 
ra avviene con uguale facilità (e pratica- 
mente con lo stesso “tempo di accesso") 
qualunque sia il punto del disco che con¬ 
tiene il pezzo desiderato. Quando inve¬ 
ce vogliamo ascoltare un brano registra¬ 
to su una cassetta, dobbiamo far avan¬ 
zare o riavvolgere il nastro fino al punto 
in cui si trova la registrazione; ciò signifi¬ 
ca che il tempo di accesso è notevol¬ 
mente variabile e può diventare anche 
molto lungo. 

Questa piccola premessa serve ad intro¬ 
durre un'analogia tra il giradischi, stru¬ 
mento familiare, e il disk drive, che per 
molti resta un oggetto misterioso, una 
“scatola nera” il cui funzionamento è 
ignoto. Proprio come il giradischi, il dri¬ 
ve legge le informazioni da appositi di¬ 
schi (e in più può anche scriverle). La 
testina, per fortuna, non deve venir spo¬ 
stata a mano: il suo movimento è co¬ 
mandato direttamente da un micropro¬ 
cessore, un “cervello" analogo a quello 
del computer, che esegue le istruzioni 
di un programma chiamato DOS (Disk 
Operating System = Sistema Operativo 
del disco). Proseguendo le analogie con 
l'esempio musicale, nel disk drive l’ac¬ 
cesso alle informazioni è “casuale”, cioè 
non dipende dalla loro posizione sul di¬ 
sco; in un'unità a nastro, invece, l’acces¬ 


so è “sequenziale”, in quanto per trova¬ 
re un’informazione dobbiamo leggere in 
sequenza tutte le precedenti. 

Tracce e settori 

Ma come sono disposte le informazioni 
su un floppy disk? Anche qui ci viene 
in aiuto il vecchio giradischi. Cosi come 
un LP è solitamente diviso in zone con¬ 
centriche separate, ognuna delle quali 
contiene un brano musicale, anche un 
dischetto magnetico viene suddiviso in 
un certo numero di tracce concentriche 


(35 nel caso del Commodore 1541) di 
uguale larghezza. In questo caso, però, 
la divisione non è visibile, in quanto si 
tratta di una registrazione magnetica e 
non di un’incisione fisica. La testina, 
spostandosi lungo il raggio del floppy, 
accede a una delle tracce; per conven¬ 
zione la traccia n.l è quella più esterna 
e la n.35 è quella più vicina al centro 
del dischetto. Ogni traccia viene poi a 
sua volta suddivisa in un numero di set¬ 
tori dipendente dalla sua lunghezza (ov¬ 
viamente le tracce esterne sono più lun- 
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ghe di quelle interne: esse hanno una 
circonferenza maggiore trovandosi più 
lontane dal centro). I settori sono nume¬ 
rati a partire da zero e disposti come se¬ 
gue: 

Tracce 1-17: 21 settori (0-20) 

Tracce 18-24: 19 settori (0-18) 

Tracce 25-30: 18 settori (0-17) 

Tracce 31-35: 17 settori (0-16) 

La suddivisione del disco in tracce e 
settori avviene al momento della for¬ 
mattazione. Ogni settore contiene un 
blocco di informazione (256 byte). Il nu¬ 
mero totale di blocchi è quindi (21x17) 
+ (19x7) + (18x6) + (17x5) = 683, da 
cui vanno sottratti i 19 blocchi della 
traccia 18, utilizzata dal DOS per me¬ 
morizzare alcune “informazioni genera¬ 
li” su disco. Ecco quindi come giungia¬ 
mo ai 664 blocchi liberi di un dischetto 
appena formattato. 

Non è un caso che la scelta sia caduta 
proprio sulla traccia 18, che si trova 
esattamente a metà strada tra la 1 (più 
esterna) e la 35 (più interna): dato che 
la testina accede ai vari file sempre par¬ 
tendo da questa traccia, il tempo d'ac¬ 
cesso viene minimizzato. Le informazio¬ 
ni contenute nella traccia 18 sono le se¬ 
guenti: 

- 11 settore 0 contiene la BAM (Block 
Availability Map = Mappa di disponibili¬ 
tà dei blocchi), un’area di 140 byte in 
cui ad ogni blocco del disco viene asso¬ 
ciato un bit. Questa mappa indica al 
DOS se un certo blocco è libero (bit=l) 
oppure occupato (bit=0). Sempre in 
questo settore è memorizzata la "Hea- 
der" (testata) del dischetto, cioè il nome 
e PID (Identificatore) di due caratteri 
che noi stessi indichiamo per formattar¬ 
lo. 

- Il settore 1 e i successivi contengono 
la Directory, cioè l’elenco dei file regi¬ 
strati sul disco. Ogni blocco contiene le 
informazioni relative a 8 file. Per ogni 
file viene indicato il tipo (programma, 
sequenziale, ecc.), il blocco iniziale a 
partire da cui è registrato, il nome (16 
caratteri) e la lunghezza in blocchi. Un 
dischetto può contenere quindi un mas¬ 
simo di 18x8=144 file. 

Quando registriamo un file sul disco è 
il DOS che si occupa di aggiornare la 
Directory e la BAM, “allocando” i bloc¬ 
chi utilizzati, cioè facendoli risultare oc¬ 
cupati nella mappa, in modo che le in¬ 
formazioni non possano in seguito veni¬ 
re cancellate. La scelta dei blocchi da 
utilizzare avviene esplorando il disco a 
partire dalla traccia 18, e procedendo 
sia verso l’interno che verso l’esterno; 
in parole povere, cioè, prima vengono 
occupate le zone “centrali”, cioè, vicine 
alla traccia 18, e poi man mano si avan¬ 
za di pari passo verso le due “periferie”, 
interna ed esterna. In tal modo le ultime 
tracce ad essere utilizzate sono la 35 e 
la 1. 

I file registrati su disco possono essere 
di quattro tipi: PRG (programma), SEQ 
(sequenziale), USR (utente) e REL (rela¬ 


tivo). I primi tre tipi vengono trattati in 
modo analogo dal DOS (si può anzi dire 
che gli USR sono del tutto identici ai 
SEQ), mentre i file relativi sono struttu¬ 
rati in modo diverso e più complesso, 
ed esulano dal tema di questo articolo. 
Ci occuperemo quindi soltanto dei file- 
programma e dei sequenziali, che diffe¬ 
riscono tra di loro sostanzialmente per 
il fatto che solo i primi possono essere 
registrati con un comando SAVE e letti 
con un LOAD. Un file PRG è la registra¬ 
zione di un’area di memoria del compu¬ 
ter; i primi due byte del file contengono 
l'indirizzo iniziale dell’area salvata. Se 
in seguito per leggere il file si digita 
LOAD’’nome’’,8, il programma viene 
caricato a partire dall’inizio della RAM 
BASIC, mentre se si digita LOAD”no- 
me”,8,l, il file viene caricato a partire 
dall’indirizzo specificato nei due byte di 
cui sopra, che può benissimo non essere 
l’inizio del BASIC (specialmente se si 
tratta di un programma in linguaggio 
macchina). Un file SEQ, invece, è sem¬ 
plicemente una sequenza di informazio¬ 
ni (numeri, stringhe, ecc.). 

I programmi e i file sequenziali occupa¬ 
no il numero di blocchi specificato nella 
Directory, in cui è indicato anche l’indi¬ 
rizzo (traccia e settore) del primo blocco 
di informazione. 1 byte di ogni blocco 
sono numerati da 0 a 255, ma solo 254 
di essi sono disponibili per l’informazio¬ 
ne, in quanto i primi due byte sono riser¬ 
vati. Per l’esattezza, in tutti i blocchi, 
tranne l’ultimo, i byte 0 e 1 contengono 
traccia e settore relativi al blocco suc¬ 
cessivo, costituendo in tal modo un pun¬ 
tatore, e i byte 2-255 contengono il 
“pezzo" di file. Nell’ultimo blocco, inve¬ 
ce, il primo byte vale zero e il secondo 
punta all’ultimo byte del file; se cioè il 
contenuto di questo puntatore è N, allo¬ 
ra i byte da 2 a N contengono gli ultimi 
N-l byte del file. 

Lettura e scrittura dei file 

Se vogliamo scrivere un file sequenziale 
su disco, dobbiamo prima aprirlo con 
un comando OPEN, poi inviare i dati 
tramite istruzioni PRINT # e infine 
chiuderlo con un comando CLOSE. In 
tal caso la forma del comando OPEN è 

OPEN f,8,c,“nome,SEQ,WRITE" 

dove f (numero file) può variare tra 1 e 
127, e c (numero canale) deve essere 
compreso tra 2 e 14. SEQ e WRITE 
possono essere abbreviati con S e W. 
Questo comando viene inviato al DOS, 
che provvede a inserire nella Directory 
il nome e il tipo del file, e cerca un 
blocco libero da indicare come primo 
blocco del file. Ora possiamo scrivere 
nel file usando l’istruzione 

PRINT #f. dati 

dove i dati possono essere numeri, strin¬ 
ghe tra apici, variabili ed espressioni di 
ogni tipo, esattamente come in un’istru¬ 
zione PRINT sullo schermo. 1 dati ven¬ 


gono scritti dal DOS in uno dei buffer 
da 256 byte che si trovano all’interno 
del disk drive, e vengono scaricati su 
disco un blocco per volta. Quando ab¬ 
biamo terminato dobbiamo chiudere il 
file con un comando 

CLOSE f 

Quando il DOS lo riceve riversa sul di¬ 
sco l’ultimo blocco del file, “chiude” il 
canale di comunicazione lasciando libe¬ 
ro il buffer, alloca nella BAM i blocchi 
utilizzati e serenella Directory la lun¬ 
ghezza del file. È quindi fondamentale 
ricordarsi di chiudere i file aperti: in ca¬ 
so contrario l’informazione in essi conte¬ 
nuta può venir cancellata, dato che i 
blocchi registrati vengono ancora indi¬ 
cati come liberi nella BAM. 

Se invece vogliamo leggere un file se¬ 
quenziale da disco, dobbiamo prima 
aprirlo con un comando OPEN, poi rice¬ 
vere i dati tramite istruzioni INPUT # 
e GET # e infine chiuderlo con un co¬ 
mando CLOSE. In questo caso la forma 
del comando OPEN è 

OPEN f,8,c,“nome,SEQ,READ" 

Per f e c valgono le limitazioni fatte pre¬ 
cedentemente; SEQ e READ possono 
essere abbreviati con S e R. Questo co¬ 
mando viene inviato al DOS, che prov¬ 
vede a cercare nella Directory il file e 
a leggere l'indirizzo del primo blocco. 
Ora possiamo leggere dal file usando le 
istruzioni 

INPUT #f. variabile 

GET # f, variabile 

La prima istruzione assegna il successi¬ 
vo dato del file alla variabile indicata. I 
dati sono separati tra loro dai caratteri 
CHR$(13) oppure CHR$(44), cioè il 
RETURN o la virgola; si crea una condi¬ 
zione di errore, se si cerca di assegnare 
una stringa contenente caratteri non nu¬ 
merici a una variabile numerica, oppure 
tentando di leggere una stringa più lun¬ 
ga di 88 caratteri. 

La seconda istruzione assegna il succes¬ 
sivo byte del file alla variabile indicata; 
si crea una condizione di errore cercan¬ 
do di assegnare un carattere non nume¬ 
rico a una variabile numerica. Il DOS 
legge i dati dal file un blocco per volta 
e li pone in uno dei buffer da 256 byte 
che si trovano all’interno del disk drive. 
Quando abbiamo terminato dobbiamo 
chiudere il file con un comando 

CLOSE f 

Quando il DOS lo riceve “chiude” il ca¬ 
nale di comunicazione, lasciando libero 
il buffer. 

I file PRG vengono automaticamente 
aperti e chiusi in modo corretto dai co¬ 
mandi SAVE e LOAD. 

Vediamo ora in dettaglio come vanno 
usate le istruzioni di scrittura (PRINT 
#) e di lettura (INPUT#, GET#). In- 


10 SUPERC64® 2/86 



nanzitutto diciamo che esse agiscono 
esattamente come le corrispondenti 
istruzioni PRINT/INPUT/GET. con la 
sola differenza che i dati vengono scritti 
nel file (e quindi nel nostro caso su di¬ 
sco), anziché sullo schermo, e vengono 
letti dal file (cioè dal disco), invece che 
daila tastiera. Identico è l’effetto dei ca¬ 
ratteri separatori, sul cui utilizzo ci sof¬ 
fermeremo brevemente per chiarire 
quale dev'essere la sintassi di un PRINT 
# e del corrispondente INPUT #, affin¬ 
ché i dati scritti vengano poi letti in mo¬ 
do esatto. 

Supponiamo di aver aperto, all’interno 
di un nostro programma, un file sequen¬ 
ziale chiamato “DATI” in scrittura, 
usando il comando 

OPEN 8,8,8,"DATI,S,W” 

e immaginiamo di aver assegnato le se¬ 
guenti variabili: 

R$=CHR$(13):V$=“,”:A$=“PIPPO”: 

B$=“PROVA”:A=53:B=12 

Vogliamo ora scrivere nel file le variabili 
stringa A$ e B$ oppure le variabili nu¬ 
meriche A e B. Ci sono molti modi per 
farlo; ne esamineremo cinque, ai quali 
possono essere ricondotti in pratica tut¬ 
ti gli altri. 

Primo modo - Si usano le seguenti 
istruzioni: 

PRINT # 8,A$:PR1NT # 8,B$ 

Analogamente all’istruzione PRINT, an¬ 
che la PRINT # trasmette automatica- 
mente un CHR$(13) al termine del mes¬ 
saggio stampato, a meno che i dati da 
stampare siano seguiti da un punto e 
virgola (stampa di seguito) o da una vir¬ 
gola (tabulazione ogni 10 colonne). Il 
carattere CHR$(13) è detto Carriage 
Return (Ritorno Carrello, cioè “vai a ca¬ 
po”, termine che deriva dalle macchine 
da scrivere). Sullo schermo un 
CHR$(13) fa andare a capo il cursore, 
in un file costituisce il principale caratte¬ 
re di separazione tra i “record”, cioè i 
singoli dati. In base a quanto detto, ese¬ 
guendo le istruzioni di cui sopra, nel file 
viene scritta la stringa “PIPPO”, un 
CHR$(13), la stringa “PROVA” e un 
CHR$(13). In modo analogo, per A eB 
usiamole istruzioni 

PRINT # 8, A:PRINT # 8,B 

Come in un’istruzione PRINT, i numeri 
vengono stampati preceduti da uno spa¬ 
zio (o dal segno meno) e seguiti ancora 
da uno spazio. Quindi in questo caso 
nel file vengono scritti la stringa 
“b53b”, un CHR$(13), la stringa 
“bl2b” e un CHR$(13). La lettera “b” 
all'Interno delle stringhe rappresenta 
per chiarezza lo spazio. 

Secondo modo - Si usa un’istruzio¬ 
ne 


PRINT # 8, A$;R$;B$ 

che ha esattamente lo stesso effetto del¬ 
le istruzioni descritte nel punto prece¬ 
dente, in quanto anche qui le stringhe 
A$ e B$ vengono separate dal 
CHR$(13) contenuto nella stringa R$. 
Analogamente, l’istruzione 

PRINT #8,A;R$;B 

stampa nel file le variabili A e B in modo 
identico a quello già descritto. 

Terzo modo Si usa un’istruzione 
PRINT #8,A$;V$;B$ 

L'unica differenza rispetto al modo pre¬ 
cedente è che il carattere che separa 
A$ da B$ è la virgola contenuta nella 
stringa V$, cioè CHR$(44). Nel file ven¬ 
gono quindi scritti la stringa “PIPPO”, 
un CHR$(44), la stringa “PROVA” e un 
CHR$(13). Lo stesso discorso vale per 

PRINT # 8,A;V$;B 

in cui A e B risultano separate da un 
CHR$(44) anziché da un CHR$(13). 

Quarto modo • Si usa un'istruzione 
PRINT # 8,A$;B$ 

In questo caso non c’è nessun carattere 
di separazione, e nel file vengono scritti 
la stringa “PIPPO", la stringa “PRO¬ 
VA” e un CHR$(13). Analogamente, se 
usiamo 

PRINT #8,A;B 

nel file vengono scritti la stringa 
“b53b", la stringa “bl2b" e un 
CHR$(13). 

Quinto modo • Si usa infine un'istru¬ 
zione 

PRINT #8,A$,B$ 

il cui risultato è quello di separare A$ 
e B$ con alcuni spazi, in quanto la virgo¬ 
la ha lo stesso effetto di tabulazione che 
avrebbe nell’istruzione PRINT. Nel file 
vengono allora scritti la stringa “PIP¬ 
PO”, la stringa “bbbbb”, la stringa 
"PROVA” e un CHR$(13). Analoga¬ 
mente, usando 

PRINT #8,A,B 

scriviamo nel file la stringa “b53b”, la 
stringa “bbbbbb", la stringa “bl2b” e 
un CHR$(13). 

Ora che aGEiamo elencato i cinque mo¬ 
di, vediamo come possiamo leggere i 
dati che abbiamo scritto su disco. Sup¬ 
poniamo di aver aperto in lettura il file 
"DATI” con un comando 

OPEN 8,8,8“”DATI,S,R” 

e immaginiamo di voler leggere le varia¬ 
bili A$ e B$ scritte nei vari modi (vedre¬ 


mo che questo non sempre sarà possibi¬ 
le). Le istruzioni da usare sono 

INPUT #8,A$:1NPUT #8,B$ 
oppure 

INPUT # 8,A$,B$ 

che hanno esattamente lo stesso effet¬ 
to. Se A$ e B$ sono state scritte in uno 
qualsiasi dei primi tre modi, allora la 
lettura avviene con successo, assegnan¬ 
do ad A$ la stringa “PIPPO” e a B$ la 
stringa “PROVA”. Infatti, sia 
CHR$(13) che CHR$(44) sono ricono¬ 
sciuti dall’istruzione INPUT # come ca¬ 
ratteri “separatori” di record. 

Se invece leggiamo i dati scritti nel 
quarto modo, ad A$ viene assegnata la 
stringa “PIPPOPROVA” e a B$ non 
viene assegnato nulla; ciò avviene per¬ 
ché i record non sono separati. 

In modo simile, leggendo i dati scritti 
nel quinto modo assegnamo ad A$ la 
stringa “PIPPObbbbbPROVA” e B$ re¬ 
sta vuota, in quanto gli spazi non sono 
riconosciuti come caratteri separatori. 
Un discorso analogo vale se leggiamo 
le variabili A e B con delle istruzioni 

INPUT # 8,A:1NPUT # 8,B 
oppure 

INPUT #8. A,B 

Se i dati erano stati scritti nei primi tre 
modi, allora ad A viene assegnato il va¬ 
lore 53 e a B il valore 12. Se invece 
erano stati utilizzati il quarto o il quinto 
modo, alla variabile A viene assegnato 
il valore 5312 e la variabile B è posta 
a zero, in quanto gli spazi vengono igno¬ 
rati. 

Abbiamo volutamente tralasciato l’i¬ 
struzione GET # , che, leggendo un solo 
carattere per volta, si presta ad applica¬ 
zioni diverse da quelle viste finora. Ad 
esempio, consideriamo il breve pro¬ 
gramma 

10 OPEN 8,8,8,"none, S, R" 

20 CET43,AS:IF ST"-'28 THEN «0 
30 PRINT AS; : GOTO 20 
40 PRINTICLOSE 8 : END 

Esso apre un file sequenziale e, byte 
per byte, legge da disco e stampa sullo 
schermo il contenuto del file. La variabi¬ 
le di stato delle operazioni di input/ 
output, cioè ST, viene testata per verifi¬ 
care la fine del file (infatti ST normal¬ 
mente vale zero, ma assume il valore 
-128 quando leggiamo l’ultimo caratte¬ 
re del file). Un programmino di questo 
tipo può servire ad “esplorare” un file 
di cui non conosciamo il contenuto. 
Vediamo infine un altro uso dell’istru¬ 
zione GET # . Supponiamo di voler sal¬ 
vare su disco una serie di N numeri, 
tutti compresi tra zero e 255 (potrebbe¬ 
ro essere ad esempio codici di schermo 
o codici ASCII). Costruiamo un pro¬ 
gramma con tali numeri memorizzati in 
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opportune istruzioni DATA e aggiungia¬ 
mo le seguenti linee: 

IO OPEN 8,8,8,"CODICI,S,W" 

20 FOR I-l TO N:READ A:PRINTIB.CHRSIA);:NEXT 
30 CLOSE 8 

In tal modo costi uiamo un file “CODI¬ 
CI”, in cui ogni numero occupa un solo 
byte, essendo scritto nella forma 
CHR$(n). Inoltre non sono necessari ca¬ 
ratteri separatori (infatti la PRINT # 
termina con un punto e virgola), in 
quanto il file verrà poi letto carattere 
per carattere. 

Se la linea 20 fosse stata 

20 FOR 1-1 TO N: READ A:PRINT«8.A:NEXT 

cioè se avessimo scritto i numeri “per 
esteso”, in modo da poterli leggere con 
delle istruzioni INPUT #, il file “CODI¬ 
CI” sarebbe stato almeno cinque volte 
più lungo, con corrispondente aumento 
dello spazio occupato sul disco e del 
tempo di lettura/scrittura. 

Supponiamo ora di voler leggere il file 
assegnando i numeri a un vettore V%(i). 
La procedura da utilizzare è la seguen¬ 
te: 

10 DIH Vt(NI:OPEN 8,8,8,“CODICI,S,R" 

20 FOR I-l TO N:GETI8,AS:V»(NI-ASC(ASI:NEXT 
30 CLOSE 8 

11 programma Copia-File 

In aggiunta a questo articolo forniamo 
un breve programma, che consente di 
trasferire da un disco all'altro file di 
qualsiasi tipo (tranne i relativi). Questo 
copia-file crea nella RAM del computer, 
modificando i puntatori del BASIC, un 
buffer, cioè un’area di memoria che vie¬ 
ne utilizzata per "immagazzinare" tem¬ 
poraneamente i file letti dal disco sor¬ 
gente, in modo da poterli poi riversare 


sul disco destinazione. La capacità di 
questo buffer (184 blocchi) limita la lun¬ 
ghezza massima dei file trasferibili, nel 
senso che non è possibile copiare un file 
più lungo del buffer; riteniamo comun¬ 
que che tale capacità sia più che suffi¬ 
ciente per le normali esigenze di dupli¬ 
cazione. È possibile trasferire fino a 30 
file per volta e se la lunghezza comples¬ 
siva dei file da copiare supera la capaci¬ 
tà del buffer, il trasferimento avviene in 
più passate, leggendo ogni volta un nu¬ 
mero di file tale da poter essere conte¬ 
nuto in memoria. 

Il programma è gestito tramite un sem¬ 
plice menu, che comprende le seguenti 
opzioni: 

DIRECTORY, che permette di visualiz¬ 
zare sullo schermo, divisa in pagine, la 
Directory del disco contenuto nel drive. 
COMANDO DISCO, per inviare qual¬ 
siasi comando al drive (seguendo la nor¬ 
male sintassi, ad esempio I per Initiali- 
ze, V per Validate, ecc.). 

COPIA FILE, che consente di seleziona¬ 
re, visualizzando uno a uno i nomi dei 
file contenuti sul disco, se un certo file 
deve venir copiato (in tal caso premere 
S) o no (premere N); se si tenta di sce¬ 
gliere un file di dimensioni superiori al 
buffer, viene visualizzato il messaggio 
“Troppo lungo!”. Se si desidera annul¬ 
lare la selezione perché si è commesso 
un errore, premere la barra spaziatrice. 
Il programma provvede a segnalare 
quando va inserito nel drive il disco sor¬ 
gente e quando va invece inserito il di¬ 
sco destinazione. 

FINE, da usare al termine delle opera¬ 
zioni. È importante uscire dal program¬ 
ma in questo modo e non usando il tasto 
RUN/STOP, in quanto questa opzione 
provvede a ristabilire i puntatori del 


BASIC prima di terminare il program¬ 
ma. 

Lo status del drive viene mostrato al 
termine di qualsiasi operazione eseguita 
sul disco, ed è sempre visibile nella par¬ 
te bassa dello schermo contenente il 
menu. Se si verifica una condizione di 
errore durante il trasferimento dei file, 
l’operazione viene troncata. 

La lettura e la scrittura dei file avviene 
byte per byte, utilizzando due sottopro¬ 
grammi in linguaggio macchina, che ri¬ 
chiamano opportunamente le routine 
CHRIN e CHROUT del sistema operati¬ 
vo Kernal. 

Per concludere, illustriamo brevemente 
la divisione in blocchi del programma: 


10-30 Inizializzazione Modifica 
puntatori BASIC 

40-110 Stampa menu • Input coman¬ 
di 

120-360 Lettura Directory - Selezione 
file 

370-480 Lettura file selezionati 

490-610 Scrittura file selezionati 

620-650 Attesa tasto premuto 

660-720 Input “S" oppure “N" per se¬ 
lezione file 

730-750 Lettura status disco 

760-830 Input e invio comando disco 

840-870 Uscita dal programma - Ripri¬ 
stino puntatori BASIC 

880-910 Stampa messaggi cambio di¬ 
sco - Inizializzazione disco 

920-960 Dati linguaggio macchina 


10 POKE950,PEEK(56) :POKE55,0 :POKE56,24:CL 
R:EM=PEEK(56):TB=(53248-(EM*256))/256 

:rem 220 

20 DIML%(31,2),C$(31,1) :OPEN8,8,15 :Q$ = " 

{ 8 GIU'}" :rem 183 

30 FORI = 848T0937: READA :POKEI,A:NEXT:POKE5 
3280,11:POKE53281,0 :rem 170 

40 FL=0: PRINT"{CLR}{CYN}{ 3 GIU'}"TAB(8)" 
{RVS}{ 2 SPAZI}C O P I A{ 4 SPAZI}F I 
L E{ 2 SPAZI}" : rem 21 

50 PRINT" { 3 GIU’} [<7>]"TAB(H) "{RVS} 1 
{OFF}{ 2 SPAZI}DIRECTORY" :rem 91 
60 PRINT"{ 2 GIU’}"TAB(11)"{RVS} 2 {OFF} 

{ 2 SPAZI}COMANDO DISCO" :rem 112 

70 PRINT"{ 2 GIU’}"TAB(11)"{RVS} 3 {OFF} 

{ 2 SPAZI}COPIA FILE" :rem 139 

80 PRINT" { 2 GIU'}"TAB(H) "{RVS} 4 {OFF} 

{ 2 SPAZI}FINE{ 5 GIU'}" :rem 120 

90 GOSUB730:GOSUB740 * : rem 216 

100 GOSUB640:ONVAL(C$)GOTO!30,760,120,840 

:rem 58 

110 GOTO90 : rem 52 

120 FL=1:GOSUB880:IFVAL(E$)>0THENPRINT" 

{ 4 SU}":GOSUB740:GOSUB64 0: GOTO40 

:rem 133 


130 

OPENl,8,0,"$0" 

: rem 

123 

140 

GOSUB730:IFVAL(E$)>0THENGOSUB740:CLOS 


E1rGOTOl00 

: rem 

1 78 

150 

P=0:Q=0:PRINT"{CLR}[<7>] 

" :rem 

131 

160 

GET#1,A$,B$ 

: rem 

238 

170 

GET#1,A$,B$ 

: rem 

239 

180 

GET#1,A$,B$ 

: rem 

240 

190 

C = 0 

: rem 

74 

200 

IFA$<>" " THENC=ASC(A$) 

:rem 

128 

210 

IFB$< >" "THENC=C+ASC(B$)* 

256 :rem 

184 

220 

P$ = "" ; p=p+l : PRINT"{RVS}" 

MID$(STR$(C), 


2);TAB(4); :IFP>1THENPRINT"{OFF }"; 




: rem 

1 58 

230 

GET# 1 ,B$ : IFPEEK ( 1 44) O0THEN350 




: rem 

164 

240 

IFB$< >CHR$ ( 34 ) THEN230 

: rem 

130 

250 

GET#1 , B$ : IFB$< >CHR$ ( 34 ) THENPRINTBS 

i; :P 


$=P$+B$:GOTO250 

: rem 

22 

260 

GET#1 , B$ : IFB$=CHR$(32 ) THEN260 




: rem 

72 

270 

PRINTTAB(21 ); :K$="" 

:rem 

22 

280 

K$=K$+B$ : GET#1,B$:IFB$<> 

" "THEN280 




: rem 

252 

290 

PRINT"{RVS }" LEFT$ ( K$,3 ): 

IFFL=1ANDP>1 T 


HENGOSUB660:IFC$=" "THENCLOSEl:GOTO40 

:rem 240 
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300 

IFFL=1ANDQ=30THEN360 

: rem 

174 

310 

IFP/21 OINT (P/21 ) ORFL =1 THEN340 

:rem 

4 

320 

IFFL=0THENGOSUB620 

: rem 

106 

330 

PRINT"{CLR}" 

: rem 

250 

340 

IFPEEK(144)=0THENl 70 

: rem 

105 

350 

PRINT"{RVS}BLOCKS FREE" 

: rem 

91 

360 

CLOSEl:IFFL=0THENGOSUB620 

: GOTO40 
: rem 

38 

370 

IFQ=0THEN40 

: rem 

122 

380 

1 = 1 

: rem 

82 

390 

PRINT"{CLR}[<6>]":NB=0:11 

= 1 :POKE898,0 


:POKE899,EM:POKE862,0 :POKE863,EM 

:rem 142 

400 L%(I,1)=PEEK(862) :L%(I,2)=PEEK(863) :N 
B=NB+L%(I,0):IFNB>TBORI>QTHEN490 

:rem 225 

410 PRINT"STO LEGGENDO{ 2 SPAZI}{RVS}"C$( 
1 , 0 ) :rem 16 

420 OPEN4,8,4,C$(I,0)+","+C$(I,1)+",R" 

:rem 90 

430 GOSUB730:1FVAL(E$)=0THEN450 : rem 76 
440 CLOSE4:PRINT"{ 2 GIU'}":GOSUB740:PRIN 
T"{ 2 GIU'}(<1>]{RVS}PREMI UN TASTO": 
GOSUB640: GOTO40 :rem 90 

450 SYS848:SYS6551 1 : OPEN8,8,15 :rem 17 
460 GOSUB730:IFVAL(E$)= 0THEN480 :rem 82 
470 PRINT"{ 2 GIU 1 }":GOSUB740:PRINT" 

{ 2 GIU'}[<1>]{RVS}PREMI UN TASTO":GO 
SUB640:GOTO40 :rem 121 

480 1=1+1:GOTO400 :rem 206 

490 GOSUB900:IFVAL(E$)>0THENPRINT" 

{ 4 SU}":GOSUB740:GOSUB640: GOTO40 

:rem 78 

500 PRINT"{CLR}[<6>}":J=II :rem 229 

510 PRINT"STO SCRIVENDO{ 2 SPAZI}{RVS}"CS 
(J,0):POKE840,L%(J+1,1):POKE84 1 ,L%(J+ 
1,2) : rem 104 

520 OPEN4,8,4,C$(J,0)+","+C$(J,1)+",W" 

:rem 98 

530 GOSUB730: 1FVAL(E$)=0THEN550 : rem 78 
540 CLOSE4:PRINT"{ 2 GIUGOSUB740:PRIN 
T"{ 2 GIU'}[<1>]{RVS}PREMI UN TASTO": 
GOSUB640: GOTO40 :rem 91 

550 SYS887:SYS6551 1 : OPEN8,8,15 :rem 2’ 
560 GOSUB730:IFVAL(E$)=0THEN580 : rem 84 
570 PRINT"{ 2 GIU'}":GOSUB740:PRINT" 

{ 2 GIU'}[<1>]{RVS}PREMI UN TASTO":GO 
SUB640: GOTO40 , :rem 122 

580 J=J+1:IFJ<ITHEN510 :rem 39 

590 IFJ<QTHENGOSUB880:IFVAL(E$)>0THENPRIN 
T"{ 4 SU}":GOSUB740:GOSUB640:GOTO40 




: rem 

235 

600 

IFJ<QTHEN390 

: rem 

199 

610 

GOTO40 

: rem 

52 

620 

PRINT"{HOME}"; 

: rem 

183 

630 

PRINTQSQS"[<1>]{ 7 GIU'}{ 

4 DES}{RVS} 


PREMI UN TASTO[<7>]" 

: rem 

23 

640 

GETCS:IFCS=""THEN640 

: rem 

91 

650 

RETURN 

: rem 

1 23 

660 

POKE198,0 

: rem 

201 

670 

GETCS: IFCSO"S"ANDCS<>"N" 

ANDCSO" 

"TH 


EN670 

: rem 

47 

680 

IFCS=" "THENRETURN 

: rem 

36 

690 

IFC$ = "N"THENPRINTTAB(25) " 

{SU}{PUR} 



{RVS}NO{< 7>]": RETURN 

: rem 

131 

700 

IFOTBTHENPRINT" {GIU' }{RED} {RVS} 



{ 4 DES}TROPPO LUNGO!{GIU 

'}[<7>]" : 

RET 


URN 

: rem 

63 


710 PRINTTAB(2 5)"{SU }{GRN}{RVS}SI[<7>]":Q 
=Q+1:C$(Q,0)=PS:C$(Q,D =LEFT$(K$,1) 




: rem 

253 

720 

L%(Q,0)=C:RETURN 

: rem 

162 

730 

INPUT#8,ES,L$,MS»N$:RETURN 

: rem 

11 

740 

PRINT"{SU}{ 39 SPAZI}{ 3 SU} 

M 




:rem 

176 


750 PRINT"{ 2 GIU'}{YEL}STATUS: {RVS}"E$" 
{DES}"L$"(DES}"MS"{DES}"N$:RETURN 

:rem 86 

760 CC$ = "":PRINT"{CLR}[<6>]"Q$"COMANDO? 

{GIU’}" : rem 9 

770 GOSUB640 : IFC$< >CHR$ ( 1 3) ANDC$OCHR$ (20 
)THENCC$=CCS+CS : rem 2’0 

780 IFCC$>""THENPRINTC$; :rem 184 

790 IFCS=CHR$(20)ANDCC$>""THENCC$=LEFT$(C 
C$,LEN(CC$)-1) : rem 74 

800 IFCSOCHR5 (1 3) ANDLEN (CCS) <39THEN770 

:rem 224 

810 IFLEN(CC$)=39THENPRINT : rem 103 

820 PRINT#8,CCS:PRINT"{ 3 GIU 1 }":GOSUB730 
:GOSUB740 :rem 63 

830 GOSUB620: GOTO40 :rem 138 

840 PRINT"{CLR}{YEL}{ 2 GIU’}SEI SICURO ( 
S/N)?" : rem 2’4 

850 GETCS:IFC$< >"S"ANDCS< >"N"THEN850 

:rem 55 

860 IFC$="N"THEN40 :rem 246 

870 POKE56,PEEK(950) :CLR:SYS2048 : rem 155 

880 PRINT"{CLR}{YEL}"Q$"{ 4 GIU'} 

{ 8 DES}{RVS}INSERISCI DISCO SORGENTE 
" :rem 27 

890 PRINT"{HOME}"TAB(9);:GOSUB630:PRINT#8 
,"I0":GOSUB730:RETURN :rem 237 

900 PRINT"{CLR}{YEL}"QS"{ 4 GIU'} 

{ 6 DES}{RVS}INSERISCI DISCO DESTINAZ 
IONE" :rem 0 

910 PRINT"{HOME}"TAB(9);:GOSUB630:PRINT#8 
,"10":GOSUB730: RETURN :rem 230 

920 DATA 1 20,169,54,133,1,162,4,32,198,255 
,32,207,255,141,0,16,238,94,3,208 

:rem 107 

930 DATA3,238,95,3,165,144,240,238,169,55 
,133,1,88,169,4,32,195,255,96,120 

:rem 139 

940 DATAI 69,54,1 33,1,1 62,4,32,201,2 55,173 
,0,1 6,32,210,255,238,1 30,3,208,3 

:rem 36 

950 DATA238,131,3,173,72,3,205,130,3,208, 
234,173,73,3,205,131,3,208,226,169 

960 DATA55, 1 33,1,88,1 69,4,32,1 95 2 55,96 48 

: rem 202 



OK-LIST 


S appiamo tutti quanto sia difficile di¬ 
gitare correttamente un programma 
(ovviamente, se non si dispone della 
cassetta allegata a SUPERCOMMO- 
DORE!). Errori di battitura anche banali 
possono provocare il malfunzionamento 
del programma stesso, o anche il blocco 
completo del sistema, obbligandoci a ri¬ 
fare il lavoro. 

Ma il punto di forza dei calcolatori è che 
essi eccellono nei compiti noiosi e che 
richiedono precisione. Scoprire un erro¬ 
re nella battitura di un listato è appunto 
un compito noioso, quindi perché non 
sfruttare il tuo computer per controllare 
i listati da te digitati? 

È proprio questo lo scopo di OK-LIST, 
il programma che ti permetterà di ri¬ 
sparmiare tempo e fatica. Annidato al¬ 
l’interno del tuo computer, OK-LIST 
controlla automaticamente ogni riga 
battuta, mostrandoti un numero in cima 
allo schermo ogni volta che premi il ta¬ 
sto RETURN. Un numero corrisponden¬ 
te nel listato del programma pubblicato 
ti permette il confronto, ed uno sguardo 
è sufficiente per avere la conferma di 
aver digitato la linea correttamente. 
OK-LIST è un breve programma in lin¬ 
guaggio macchina residente nel buffer 
del registratore. Esso rimane in tale zo¬ 
na finché spegni il computer o usi l'unità 
a cassette. 

Come digitare OK-LIST 

Digita il listato che segue, facendo at¬ 


tenzione a non commettere errori (per 
fortuna il listato è molto breve!). Dopo 
aver finito salvalo su disco o nastro, per 

10 meno un paio di volte, prima di man¬ 
darlo in esecuzione con il comando 
RUN, perché il programma BASIC, do¬ 
po aver memorizzato la routine in lin¬ 
guaggio macchina (le istruzioni DATA), 
si autocancella. 

Coma al mi OK-LIST 

A questo punto puoi iniziare a battere 

11 tuo primo listato “a prova di errore”. 
Se non hai OK-LIST in memoria, carica¬ 
lo e attivalo con RUN. 

Digita quindi la prima linea di program¬ 
ma: come puoi vedere, in fondo ad essa 
c’è la parola “:rem” seguita da un nu¬ 
mero, che si chiama checksum. 

NON COPIARE QUESTA PARTE 
DELLA LINEA! Ora premi il tasto RE¬ 
TURN, come al solito. In alto a sinistra 
apparirà il checksum; confrontalo con 
quello che vedi scritto sulla rivista dopo 
“:rem". Se i due numeri sono uguali, 
vuol dire che la linea è stata digitata 
correttamente, altrimenti controllala, 
perché evidentemente hai commesso 
un errore. Facile, no? 

OK-LIST non è pignolo per quel che 
riguarda gli spazi bianchi, dato che non 
fa caso alla loro presenza. Ciò torna a 
tuo vantaggio, dal momento che la spa¬ 
ziatura non è, in genere, importante. 
Ma all’interno delle istruzioni PRINT gli 
spazi spesso si rivelano necessari, quin¬ 
di presta attenzione quando digiti que¬ 
sto tipo di istruzione. Un’altra cosa a 
cui devi badare è che usando le forme 
abbreviate dei comandi (ad esempio ? 
per PRINT) il checksum visualizzato 


non coinciderà con quello presente sul 
listato. Ciò è tuttavia risolvibile, pre¬ 
mendo il tasto RETURN su una linea 
dopo averla listata: le abbreviazioni sa¬ 
ranno ricodificate nella loro forma inte¬ 
ra e quindi OK-LIST sarà in grado di 
svolgere perfettamente la sua funzione. 
In questo modo, inoltre, avrai la possibi¬ 
lità di controllare interi gruppi di righe 
in una volta soia. 

Ovviamente, nessuno è perfetto, ed an¬ 
che OK-LIST ha qualche limite: se per 
caso ti capitasse (ma è un errore poco 
frequente) di “anagrammare" durante 
la digitazione una linea (per esempio 
invece di battere 10 PRINT“VA1”, digiti 
per errore 10 PR1NT“VIA”), OK-LIST 
non se ne accorgerebbe. Inoltre la pre¬ 
senza del carattere SHIFT-SPAZIO mo¬ 
difica il numero di checksum rispetto al 
carattere SPAZIO normale, anche se la 
differenza non risulta visibile sul video 
del tuo computer. 

Se intendi sospendere il lavoro di digita¬ 
zione - o lo hai terminato - puoi salva¬ 
re su nastro o disco il tuo programma: 
ricordati comunque di premere RUN/ 
STOP e RESTORE prima di dare il co¬ 
mando SAVE. Al momento di riprende¬ 
re il lavoro, tuttavia, non potrai più uti¬ 
lizzare OK-LIST, dal momento che 
qualsiasi operazione su cassetta lo di¬ 
strugge. 

Se vuoi disabilitare OK-LIST in qualun¬ 
que momento, senza perdere il tuo pro¬ 
gramma in memoria, premi RUN/ 
STOP e RESTORE. Per riattivarlo bat¬ 
ti: 

SYS 886 
Buon lavoro! 


10 PRINT"{CLR}ATTENDERE PREGO..." 

1 1 FORI =886TOl018 :READA:CK=CK+A:POKEI, A: N 
EXT 

12 IF CROI 7539 THEN PRINT" {GIU 1 }ERRORE N 
ELLE ISTRUZIONI DATA": END 

13 SYS886:PRINT"{CLR){ 2 GIU'JOK-LIST ATT 
IVATO.": NEW 

14 DATA173,036,003,201,150,208 

15 DATA001,096,141,151,003,173 

16 DATA037,003,141,152,003,169 

17 DATA150,141,036,003,169,003 

18 DATAMI ,037,003,169,000,133 

19 DATA254,096,032,087,241,133 

20 DATA251,134,252,132,253,008 

21 DATA201,013,240,017,201,032 

22 DATA240,005,024,101,254,133 

23 DATA254,165,251,166,252,164 

24 DATA253,040,096,169,013,032 

25 DATA210,255,165,214,141,251 

26 DATA003,206,251,003,169,000 

27 DATAI 33,216,169,019,032,210 

28 DATA255,169,018,032,210,255 

29 DATAI 69,058,032,210,255,166 

30 DATA254,169,000,133,254,172 

31 DATAI 51 ,003,192,087,208,006 

32 DATA032,205,189,076,235,003 

33 DATA032,205,221,169,032,032 

34 DATA210,255,032,210,255,173 

35 DATA251,003,133,214,076,173 

36 DATA003 
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Piccola guida per 
l’input 

dei programmi 


M olti dei programmi listati da SUPERCOMMODO- 
RE contengono particolari caratteri di controllo 
(controllo cursore, tasti colore, video-inverse, ecc.). 
Per rendere chiaro ciò che dev’essere battuto quando 
è necessario inserire uno dei suddetti caratteri sono 
state stabilite le seguenti convenzioni. 

Generalmente i listati contengono delle «parole» racchiu¬ 
se tra parentesi graffe { }; tali parole rappresentano 
particolari caratteri di controllo: (GIÙJ significa premere 
il simbolo del cursore verso il basso. 1 5 SPAZI j vuol dire 
battere 5 volte la barra-spazio. 

Per indicare che un tasto dev’essere «shiftato», cioè 
premuto insieme al tasto SHIFT, nel listato il simbolo 
di questo tasto sarà sottolineato. 

Per esempio S significa che dev’essere premuto il tasto 
S mentre è abbassato il tasto SHIFT. 

La manovra farà apparire sullo schermo un piccolo 
«cuore». 

Trovando un simbolo sottolineato chiuso tra parentesi 
graffe (esempio {10 Nj) dovrà essere interpretato co¬ 
me «premere il carattere indicato per il numero di volte 
che lo precede nelle parentesi»: nel nostro esempio 
premere 10 volte il tasto N «shiftato». 

Se il tasto da premere è indicato tra le parentesi [()], 
vuol dire che lo stesso dovrà essere premuto mentre 
è premuto il tasto «Commodore» (il tasto «Commodo¬ 
re» è quello posto nell’angolo in basso a sinistra). 

Se il tasto scritto tra [()] è preceduto da un numero, 
ciò significa che il tasto dev’essere premuto per il nu¬ 
mero di volte indicato. 


Raramente si potrà trovare un carattere alfabetico soli¬ 
tario racchiuso tra parentesi graffe. Tale carattere sul 
C64 può essere battuto mentre è premuto il tasto 
CTRL. 

Ad esempio (A( sta ad indicare la sequenza CTRL-A. 
A proposito del «modo virgolette» è nota la possibilità 
di muovere il cursore sullo schermo con i tasti CRSR. 
Ogni tanto i programmatori desiderano muovere il cur¬ 
sore durante l’esecuzione del programma. È per que¬ 
sto motivo che nei programmi si troveranno dei [ SIN |, 
! HOME ) e |BLUf; 

L’unico modo perché il calcolatore distingua il coman¬ 
do diretto da quello inserito nel programma è il «modo 
virgolette». Premendo il tasto «virgolette» (tasti SHIFT 
2) il calcolatore si predispone appunto in «modo virgo- 
lette». 

Battendo un carattere qualsiasi, cercando poi di cor¬ 
reggerlo muovendo il cursore, si otterrà solo un trat¬ 
to verticale in un quadratino inverso. Questo è infat¬ 
ti il simbolo del cursore a sinistra nel «modo virgolette». 
L’unico comando di editing non utilizzabile all’interno 
di un programma è il DEL. Battendo nuovamente le 
«virgolette» il calcolatore lascia il «modo virgolette». Si 
può accedere al «modo virgolette» quando inserite spa¬ 
zi nella linea. 

In ogni caso, il sistema più semplice per uscire dal 
«modo virgolette» è quello di premere il tasto RE¬ 
TURN. 

Utilizzare la tabella che segue quando è necessario 
inserire comandi relativi al cursore e ai tasti colore. 


Quando leggete: 

Premete: Vedrete: 

Quando leggete: 

Premete: 

Vedrete: 

Quando leggete: 

Premete: 

Vedrete: 

(CLR) 

BUB 

E 

(CYN} 

CESO 

fc! 

t<7>] 

□ a 

□ 

{HOME} 


0 

(PUR) 

QQS Q 

m 

(<8>) 

so 

■ ■ 
■ ■ 

(SU) 

t-Tll ni 

n 

(GRN} 

I4i.ll Q 

□ 

(FI) 


5 

(GIU 1 ) 

liI-LfTUl 


{BLU} 

eoa 

Q 

{ F2 } 

ra 

51 

(SIN) 


il 

{YEL} 

Gzn □ 

Sii 

{ F 3 } 

ai 

■i 

(DES) 

23223S 

■ ■ 
□ 

[<1>1 

C3D 

□ 

{F4 } 

03 

hS 

{RVS} 

e a □ 

0 

I < 2 > J 

□ □ 

15 

{ F 5} 

ri-ì 

II 

(OFF) 

co □ 

■ 

[< 3> ] 

EJ □ 

S 

{ F6 } 

li'. 

SI 

( BLK} 

ihLIÌ Q 

■ 

[<4>1 

SO 

GJ 

{F7} 

rs 

II 

(WHT) . 

EZZIQ 

a 

[<5>] 

SO 

E 

{ F8 } 

CZD 

■ 

(RED) 

14Mi Q 

e 

[<6>] 

SD 

■1 
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Spuntano all’orizzonte 
i compact disc 




I lettori di compact diac (CD) 
•tanno riscuotendo un grande 
successo nel mercato deU’Hi-Fi, 
a causa della loro impeccabile 
quajltà di riproduzione musica¬ 
le. E ora tecnicamente possibile 
interfacciare agli home compu¬ 
ter dei lettori di compact disk 
opportunamente modificati, in 
modo da sfruttare i compact disc 
stessi come memoria di massa. 
Le loro prestazioni sono feno¬ 
menali anche in questo settore. 


C hiunque possegga un impianto ste¬ 
reo con un giradischi sa come si ro¬ 
vinino velocemente gli LP in vinile, mal¬ 
grado le grandi cure e cautele nel ma¬ 
neggiarli e nel riporli: lo stesso sfrega¬ 
mento della puntina in diamante contro 
la superficie rugosa del disco ne dimi¬ 
nuisce, con il tempo, la fedeltà di ripro¬ 
duzione sonora. 

I lettori di compact disc, al contrario, 
con l’utilizzo di laser miniaturizzati e di 
involucri plastici o di alluminio, hanno 
risolto il problema: la qualità sonora di 


un compact disc è enormemente supe¬ 
riore a quella offerta da qualsiasi disco 
in vinile. 

La tecnologia del compact disc si sta 
spostando, in questo periodo, dal setto¬ 
re Hi-Fi a quello dell’home e personal 
computer, e precisamente nella forma 
delle cosiddette CD-ROM: Compact 
Disc Read Only Memory. 

Attraverso il sistema digitale di imma¬ 
gazzinamento dei dati, e attraverso il 
sistema laser di lettura del compact 
disc, le CD-ROM sono in grado di imma- 
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gazzinare musica, grafica, testi e virtual¬ 
mente qualunque altro tipo di informa¬ 
zioni. 

Il vostro buon vecchio drive 1541 pos¬ 
siede, come sapete, una testina di lettu¬ 
ra/scrittura, che entra in contatto diret¬ 
to con la superficie del floppy disk ogni 
qual volta si accede al dischetto stesso. 
L’usura del disco, provocata da questo 
continuo contatto, può essere parago¬ 
nata a quella dei dischi in vinile in con¬ 
tatto con la puntina del giradischi. 
Proprio come il 1541, anche il lettore 
di compact disc è un apparecchio ad 
accesso casuale, in cui le informazioni 
vengono lette in modo non sequenziale. 
Un compact disc gira a circa 300 giri al 
minuto (come un dischetto nel 1541), 
ma la sua capacità e il suo tempo di 
accesso ai dati sono incredibili, se para¬ 
gonati a quelli del 1541: un comune 
compact disc può infatti immagazzinare 
fino a 550 Megabyte, cioè l'equivalente 
di più di 3000 floppy disk per 1541. Il 
tempo medio richiesto per la lettura di 
un’informazione (come ad esempio un 
record di un archivio) contenuta sul 
compact disc è di circa un secondo: del 
tutto insignificante, se si considera 
l’enorme numero di informazioni imma¬ 
gazzinate. La tecnologia del compact 
disc applicato al computer è ancora in 
fase di sviluppo, e sono stati al momen¬ 
to realizzati compact disc a sola lettura 
(naturalmente, la tecnologia di scrittura 
già esiste - altrimenti, come potrebbero 
essere scritti i compact disc a sola lettu¬ 
ra? - tuttavia con costi ancora del tutto 
proibitivi per il mercato privato). 
Attualmente, inoltre, la densità media 
degli errori in riproduzione di un com¬ 
pact disc è di 1 byte errato per ogni 
100 Kbyte corretti, accettabilissima se 
si riproduce musica, ma troppo perico¬ 
losa nel caso del trattamento dei dati. 
Quando saranno disponibili - a costi 
accessibili - le memorie di massa basa¬ 
te sul compact disc, andranno probabil¬ 
mente in pensione sia gli attuali floppy 
che i costosi dischi rigidi, la cui capacità 
si aggira oggi, senza voler salire troppo 
con i costi, attorno ai 10 Megabyte. 

Chi abbia provato a lavorare con un 
disco rigido pregusterà senz’altro più 
degli altri la prossima venuta della tec¬ 
nologia CD: avere in linea 500 Megaby¬ 
te di informazioni significa poter consul¬ 
tare l’intera enciclopedia Treccani at¬ 
traverso un semplice programma, ela¬ 
borare previsioni di mercato contando 
su una base enorme di informazioni, ma 
anche disporre di videogiochì dalla gra¬ 
fica e suono sofisticatissimi, e oggi anco¬ 
ra impensabili almeno a livello casalin¬ 
go. Se il C64 continuerà a “reggere” sul 
mercato come sta facendo ora, si presu¬ 
me che i primi lettori CD per home com¬ 
puter a comparire sul mercato saranno 
con esso compatibili. Terremo comun¬ 
que informati i nostri lettori sugli svilup¬ 
pi di questa interessante tecnologia. 


Entro onche tu nel misterioso 
mondo degli Etruschi con uno favoloso 
avventura interamente italiana. 

Incontrerai fantasmi, regine 
affascinanti, lupi e altre strane creature 
che popolano le antichissime mura di Veio 
autentica città etrusco. 

Scopri con un gioco irresistibile 
i misteri di questa affascinante civiltà. 


GRUPPO EDITORIALE 

JACKSON 

DIVISIONE PERICOLO 





Come utilizzare 
l’interfaccia 
RS-232 



di M. Cristnib Grlzzi 



Il C64 è dotato di interfaccia RS- 
232, apparato conosciuto da tut¬ 
ti almeno di nome, ma di cui in 
genere si sa ben poco, anche per 
le carenze sia del manuale di 
istruzioni unito alla macchina 
che della "Guida di riferimento 
del programmatore". 


L ’interfaccia RS-232 del C64 non se¬ 
gue. anche se per piccoli dettagli, il 
vero e proprio standard RS-232 ed è 
quindi da considerarsi una pseudo RS- 
232. La differenza rispetto allo stan¬ 
dard sta nel livello di tensione in uscita, 
che oscilla nel C64 da OV a +5V, men¬ 
tre lo standard prevede un intervallo di 
tensione tra -12V a +12V. 

Tale differenza, se si desidera effettua¬ 
re un collegamento con un apparato 
esterno diverso da un altro computer 
Commodore, impone l'utilizzo di appo¬ 
site cartucce, che ripristinano i livelli di 
tensione in conformità ai valori stan¬ 
dard. La più comune di queste cartucce 
è prodotta dalla stessa Commodore, ed 
è denominata VIC-1011A. 

L'utilizzo più classico della RS-232 è 
infatti il collegamento con stampanti 
non Commodore (noi ad esempio •stiliz¬ 
ziamo la cartuccia di cui sopra per rea¬ 
lizzare i listati della rivista attraverso 
una grossa stampante Diablo 630), op¬ 
pure con dei modem, od ancora diretta- 
mente con altri computer per il trasferi¬ 
mento di dati o programmi. 

La RS-232 è un'interfaccia seriale: ciò 
significa che i bit (sia che costituiscano 
dati o programmi) vengono trasmessi o 
ricevuti sequenzialmente, uno dopo l'al¬ 
tro; un byte verrà quindi trasmesso co¬ 
me otto bit in sequenza. Le interfacce 
parallele, al contrario, trasmettono un 
byte (otto bit) alla volta, e sono quindi 
in genere molto più veloci delle seriali. 
Un termine che si incontra quasi sempre 


quando si parla di trasmissioni è buffer: 
il più noto tra i buffer esistenti nel C64 
è senz'altro il buffer del registratore a 
cassette, che immagazzina i gruppi di 
byte da trasferire dal o al registratore. 
Il meno noto è sicuramente quello del¬ 
l’interfaccia RS-232, che non è perma¬ 
nente come quello del registratore, ma 
viene automaticamente allocato in me¬ 
moria soltanto nel momento dell’aper¬ 
tura di un canale di comunicazione RS- 
232. 


Un canale di comunicazione RS-232 si 
apre con la consueta istruzione OPEN, 
ma con una sequenza di parametri un 
po’ diversa dal solito: 

OPEN f,p,s,CHR$(con)+CHR$(com) 

dove i parametri hanno i seguenti signi¬ 
ficati: 

f: numero del file logico, che può assu¬ 
mere valori da 1 a 255. Valori compresi 
tra 128 e 255 provocheranno tuttavia 
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1’aggiunta di un linefeed, cioè di un 
CHR$(10), dopo ogni CHR$(13), che 
rappresenta un carattere di RETURN. 
Il carattere di linefeed viene a volte ri¬ 
chiesto dopo un RETURN da certe 
stampanti che non fanno avanzare di 
uno spazio la carta dopo ogni fine linea. 

p: numero di periferica. L'interfaccia 
RS-232 viene trattata dal computer co¬ 
me una periferica a sé stante, e il suo 
numero caratteristico, assegnato dal Si¬ 
stema Operativo, è 2. Il parametro p 
dovrà perciò sempre avere il valore 2. 

e: indirizzo secondario. Nel caso dell’in¬ 
terfaccia RS-232 non è significativo, e 
vale perciò 0. 

CHRS(con): carattere di controllo. 
Questo parametro definisce importanti 
fattori, come numero dei bit di stop, lun¬ 
ghezza della parola e baud rate, che defi¬ 
nisce la velocità di trasmissione. Questi 
tre fattori di solito spaventano l’utente, 
mentre in realtà non vi è in essi proprio 
nulla di complicato: l’unica cosa vera¬ 
mente importante è che essi siano rego¬ 
lati nello stesso modo, sia nell’unità in 
trasmissione che nell’unità in ricezione. 
Vedremo più avanti come determinare 
il valore da assegnare al carattere di 
controllo. 

CHR$(com): carattere di comando (è 
tuttavia opzionale). Similmente a quan¬ 
to effettuato dal carattere di controllo, 
questo parametro definisce parità, full 
o half duplex e handshaking. Il metodo 
di determinazione di questi valori sarà 
analizzato più avanti. 

Alcuni esempi di istruzioni di apertura 
di un canale RS-232 sono: 

OPEN1,2,OCHR$ (6) +CHR$ (16) 

OPEN2,2,OCHR$ (166) 

OPEN130,2,0,CHR$ (166) 

I dati si ricevono o si trasmettono trami¬ 
te RS-232, esattamente come si fa abi¬ 
tualmente con i file sequenziali: per rice¬ 
vere si usa l’istruzione GET #, mentre 
per trasmettere si usa la PRINT #. Alla 
fine della comunicazione si chiuderà il 
canale con la consueta CLOSE f. 

II semplice comando: 

OPEN1,2,0,CHR$ (6): CMD1:LIST 

seguito, alla ricomparsa del cursore, da: 

PRINT# l:CLOSEl 

invia su RS-232 il listato del programma 
che si trova in memoria ed è - tranne 
che per la forma della OPEN - assolu¬ 
tamente analogo al comando che si usa 
per effettuare un listato su stampante, 
nastro o disco. 

Il carattere di controllo 

Come abbiamo detto, il carattere di 
controllo definisce rispettivamente bit 
di stop, lunghezza della parola e baud 
rate. I (o il) bit di stop servono per aiuta¬ 
re l'unità ricevente a stabilire quando è 
arrivata la fine di un carattere trasmes¬ 


so (ricordate che ogni carattere viene 
inviato come sequenza di bit); è possibi¬ 
le usare uno o due bit di stop. 

Il carattere di controllo, come del resto 
qualsiasi altro carattere ASCII Commo¬ 
dore, è composto da otto bit. Immagi¬ 
nandolo con tutti i bit posti a zero, esso 
avrà la seguente forma: 

bit 7 6 5 4 3 2 1 0 

carattere di 

controllo 00000000 

II numero di bit di stop dipende dal valo¬ 
re che decidiamo di assegnare al bit 7 
del carattere di controllo: se lo poniamo 
a 1, ci saranno due bit di stop, mentre 
se lo poniamo a zero, ce ne sarà uno so¬ 
lo. 

La lunghezza della parola stabilisce in¬ 
vece quanti bit devono essere trasmessi 
per ogni carattere, e può assumere va¬ 
lori compresi tra 5 e 8 bit per carattere, 
anche se quasi sempre viene usata di 
otto bit. La lunghezza della parola è 
definita dal valore assunto dai bit 6 e 5 
del carattere di controllo, secondo la 


seguente 

tabella: 


bit 6 

5 

lunghezza 
della parola 

0 

0 

8 bit 

0 

1 

7 bit 

1 

0 

6 bit 

1 

1 

5 bit 


Se volessimo ad esempio definire 2 bit 
di stop con una lunghezza della parola 
di 7 bit, il carattere di controllo inizierà 
ad assumere la forma: 


bit 7 6 5 4 3 2 1 0 

carattere di 

controllo 10100000 


dove abbiamo posto il bit 7 a 1 (2 bit 
di stop) e i bit 6 e 5 rispettivamente a 
0 e 1 (lunghezza della parola di 7 bit). 
Il baud rate stabilisce, come detto, la 
velocità di trasmissione. Quasi sempre 
vengono usati valori di 300 o 1200 
baud, equivalenti rispettivamente a cir¬ 
ca 30 e circa 120 caratteri al secondo. 
Il baud rate si regola attraverso i bit 3, 
2, 1 e 0 del carattere di controllo, se¬ 
condo la seguente tabella: 


bit 3 2 1 O 


band rate 


0 0 0 1 50 

0 0 1 0 75 

0011 110 

0 1 0 0 134.5 

0101 150 

0 1 1 0 300 

Olii 600 

1 0 0 0 1200 


Ritornando all’esempio precedente, se 
desiderassimo definire 2 bit di stop, lun¬ 
ghezza della parola di 7 bit e velocità 
di trasmissione di 300 baud, il carattere 
di controllo assumerà la forma: 


bit 7 6 5 4 3 2 1 0 

carattere di 

controllo 10100110 


Come avrete notato, il bit 4 del caratte¬ 


re di controllo non viene usato, e rimane 
quindi sempre a zero. 

Non resterà ora altro che convertire il 
valore ottenuto - 10100110 - da base 
binaria in base decimale. Dal momento 
che disponiamo di un computer, dele¬ 
ghiamo ad esso questo “ingrato” compi¬ 
to, attraverso il seguente programmi¬ 
no: 


10 INPUT"VALORE BINARIO";R$ 
20 IFLEN(R$) 08THEN1 0 
30 FORI=0TO7:A=VAL(MID$(R$,L 
EN(R$)-I,1)) 

40 B=B+A* 211 :NEXT 

50 PRINT"VALORE DECIMALE:";B 

60 END 


Otterremo il valore decimale 166: il re¬ 
gistro di controllo verrà quindi inserito 
nell’istruzione OPEN come CHR$ 
(166). 

Un altro valore in genere molto usato 
del carattere di controllo è CHR$(6), 
che corrisponde a 1 bit di stop, lunghez¬ 
za della parola di 8 bit e 300 baud. 


Il carattere di comando 

Mentre il carattere di controllo regola 
bit di stop, lunghezza della parola e 
baud rate, il carattere di comando rego¬ 
la parità, half o full duplex e handsha¬ 
king. 

La parità viene usata per il controllo 
degli errori eventualmente verificatisi 
durante la trasmissione, in genere dovu¬ 
ti a dispersioni o interferenze sulla linea 
(sia essa una linea telefonica oppure un 
semplice cavo seriale). 

Se si decide di utilizzare il controllo di 
parità (esso infatti, come tutti i parame¬ 
tri regolati dal carattere di comando, è 
opzionale), si può scegliere tra parità 
pari e parità dispari. Le due cose sono 
assolutamente equivalenti, e l’unico fat¬ 
tore importante è che entrambe le unità 
in comunicazione siano regolate sullo 
stesso tipo di parità. 

I bit 7, 6 e 5 del carattere di comando 
definiscono il valore della parità secon¬ 
do il seguente schema: 


bit 7 6 

0 0 
0 0 
0 1 


5 parità 

0 nessuna 
1 dispari 
1 pari 


Quando si usa una lunghezza della pa¬ 
rola dì otto bit, l’opzione di parità non 
è tuttavia disponibile e occorre quindi 
porre a zero i bit 7, 6 e 5 del carattere 
di comando (nessuna parità). 
Supponendo invece di scegliere una pa¬ 
rità dispari, il carattere di comando as¬ 
sumerà la forma: 


bit 7 6 5 4 3 2 1 0 

carattere di 

comando 00100000 


Il tipo di duplex indica se entrambe le 
unità in collegamento possono trasmet¬ 
tere simultaneamente (full duplex), op¬ 
pure se la trasmissione deve avvenire 
da parte di un'unità alla volta (half du- 
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plex). Il valore senz’altro generalmente 
più usato è il full duplex, tuttavia anche 
qui è importante che entrambe le unità 
siano regolate allo stesso modo: o en¬ 
trambe sul full duplex oppure entrambe 
su half duplex. 

11 bit 4 del carattere di comando regola 
il tipo di duplex: 

bit 4 duplex 

0 full 

1 half 

L’handshaking indica come le unità ri¬ 
ceventi e trasmittenti riconoscono e sta¬ 
biliscono la comunicazione tra di esse 
(protocollo di comunicazione), ed è re¬ 
golato dal bit 0 del carattere di coman¬ 
do. 

Per la maggior parte dei casi si usa un 
valore 0 per questo bit. 

Volendo regolare parità dispari e half 
duplex, il carattere di comando avrà la 
forma: 

bit 7 6 5 4 3 2 1 0 

carattere di 

comando 001 10000 

I bit 3, 2 e 1 del carattere di comando 
non sono usati e vanno quindi lasciati a 
zero. Con il precedente programmino 
potremo convertire in decimale anche 
questo valore, ottenendo per l’ultimo 
esempio un CHR$ (48). 

La sintassi per l’apertura di un canale 
RS-232 dotato di 2 bit di stop, lunghez¬ 
za della parola di 7 bit, 300 baud, parità 
dispari ed half duplex sarà dunque: 

OPEN1,2.0,CHR$(166)+CHR$(48) 

Come avete visto, il carattere di coman¬ 
do non è così importante come il carat¬ 
tere di controllo, e infatti viene quasi 
sempre omesso per la maggior parte 
degli scopi. 

II controllo degli errori 

Quando viene eseguita una OPEN sulla 
RS-232 viene allocato in memoria, co¬ 
me detto, un buffer di comunicazione, 
lungo 512 byte (256 byte per l’INPUT 
e 256 byte per l’OUTPUT). 

Viene inoltre eseguito automaticamente 
un CLR, che cancella il contenuto di 


tutte le variabili, chiude tutti i file aperti 
e fa “dimenticare” al computer la linea 
di ritorno di un’istruzione RETURN 
eventualmente incontrata dopo la 
OPEN. 

Per questo motivo un canale RS-232 
non deve mai venire aperto in una sub¬ 
routine, oppure dopo che siano stati di¬ 
mensionati vettori o matrici o assegnate 
variabili importanti: è sempre opportu¬ 
no aprire il canale RS-232 con la prima 
linea del programma. 

Anche la CLOSE di un canale RS-232 
provoca un analogo CLR, e deve quindi 
preferibilmente essere usata come ulti¬ 
ma istruzione del programma. 

Come ben sa chi utilizza abitualmente i 
file sequenziali su nastro o disco, la va¬ 
riabile riservata ST (STatus) controlla 
lo stato del canale di comunicazione. 
Nel caso della RS-232 essa assume tut¬ 
tavia dei significati diversi dal solito: in 
particolare i suoi bit 0, 1 e 2 indicano 
tre diversi tipi di errore: 


bit O 1 

0 0 
1 0 
0 1 
0 0 


2 tipo errore 

0 tutto OK 
0 errore parità 
0 errore pacchetto 
1 errore overflow 


Ovviamente, gli errori possono verifi¬ 
carsi contemporaneamente: ad esem¬ 
pio, se i bit 0 e 2 sono entrambi a 1, si 
sono verificati un errore di parità e un 
overflow nel buffer dell’unità riceven¬ 
te. 

Un errore di parità si verifica se un cer¬ 
to bit ha un valore non congruente con 
il controllo di parità (interferenze sulla 
linea). Si ricordi di non considerare si¬ 
gnificativo questo bit, se si utilizza una 
lunghezza della parola di otto bit. 

Un errore di pacchetto si verifica quan¬ 
do l’unità ricevente ha problemi nel ri¬ 
cevere un “pacchetto” di bit indicante 
un carattere. 

Un errore di overflow, infine, indica che 
il buffer di INPUT dell’unità ricevente 
è pieno (256 byte), e viene ricevuto il 
257esimo carattere prima che il pro¬ 
gramma di comunicazione abbia iniziato 
a svuotare il buffer. Ciò accade tipica¬ 
mente quando il programma - general¬ 


mente in BASIC - è troppo lento nella 
sua esecuzione rispetto alla velocità di 
trasmissione selezionata: i dati arrivano 
più in fretta di quanto il programma sia 
in grado di processarli. 

Questi bit della variabile riservata ST si 
possono controllare da BASIC attraver¬ 
so un AND logico; ad esempio: 

IFST AND!THENPRINT"ERR.PARITÀ•” 

IFST AND2THENPRINT"ERR.PACCHETTO" 

IFST AND4THENPRINT"ERR.OVERFLOW" 

Si noti lo spazio tra ST e AND, dovuto 
a un “bug” nell’interprete BASIC che 
segnala un “SYNTAX ERROR” nel ca¬ 
so tale spazio sia assente. 

Infine, un’ultima nota per quanto con¬ 
cerne la variabile ST: essa viene posta 
a zero dal computer dopo l’esecuzione 
di un’istruzione di INPUT/OUTPUT, 
come GET # o PR1NT #. Il solito truc¬ 
cherò per aggirare questo inconvenien¬ 
te è definire una variabile di lavoro 
uguale alla ST: 

S-ST:GET#I,AS: IFSAND!THEN... 

Pensiamo con ciò di aver esaurito 
l’aspetto pratico dell’utilizzo dell’inter¬ 
faccia RS-232: con la sempre maggiore 
diffusione di periferiche come i modem, 
non guasta infatti iniziare a prendere un 
po’ di confidenza con questa poco cono¬ 
sciuta caratteristica del nostro compu¬ 
ter. 

11 programma presentato in fondo all’ar¬ 
ticolo permette di inviare a un’unità ri¬ 
cevente (modem, stampante, altro com¬ 
puter...) un file sequenziale su disco. 
Esso richiede tutti i parametri di comu¬ 
nicazione analizzati nell’articolo, quindi 
calcola e visualizza i caratteri di control¬ 
lo e di comando per la OPEN. 
Richiederà quindi il nome del file se¬ 
quenziale (che può essere un testo di 
un word processor, un listato di un pro¬ 
gramma BASIC, un file dati, ecc...) e 
inizierà a trasmetterlo su RS-232, visua¬ 
lizzandolo contemporaneamente su vi¬ 
deo. 


Invio di file sn RS-232 


5 POKE53280,OtPOKE53281,0tPOKE646,1 

treni 240 

io input"{clrInumerò bit di stop 

{ 12 SPAZI}!{ 3 SIN}";A$: IFA$ = "1"THENR 
$ = "0":GOTO30 : rem 4 

20 R$ = "1" : rem 138 

30 INPUT"LUNGHEZZA DELLA PAROLA 

{ 8 SPAZI}7{ 3 SIN}";A$:IFA$="7"THENR$ 
=R$+"01" : rem 204 

40 IFA$ = "8"THENR$=R$+"00" : rem 56 

50 IFA$="6"THENR$=R$+"10" : rem 56 


60 IFA$ = "5"THENR$=R$+"11" : rem 57 
70 R$=R$+"0" srem 47 
80 INPUT"BAUD RATE{ 21 SPAZI}300{ 5 SIN} 

";B : rem 165 
90 IFB=300THENR$=R$+"0110" trem 147 
100 IFB=1200THENR$=R$+"1000" trem 234 
110 IFB=2400THENR$=R$+"1010" trem 239 
1 20 IFB0 300ANDB01200ANDB0 24 00THEN80 

trem 175 

1 30 B = 0:FORI = 0TO7:A=VAL(MID$(R$,LEN(R$)-I 
,1)): B=B+A*211:NEXT trem 4 5 
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140 Wl$=CHR$(B) : PRINT" {GIU ' }CHR$(''B") 

{GIU'}" : rem 23 

150 R$="":PRINT"PARITA'(1-NO/2-DISP/3-PAR 
I){ 3 SPAZIINPUT"1{ 3 SIN}";P 

:rem 33 

160 IFP= 1THENR$="000" :rem 154 

170 IFP=2THENR$="001" :rem 157 

180 IFP=3THENR$="011" : rem 160 

190 INPUT"0-FULL.D/ 1-HALF.D{ 12 SPAZI}0 
{ 3 SIN}"; A:IFA = 0THENR$ = R$ + "0":G0T021 
0 :rem 129 

200 R$=R$+"1 * : rem 91 

210 R$=R$+"000" : rem 187 

220 INPUT"HANDSHAKE (0-3/1-X){ 11 SPAZI} 
0{ 3 SIN}"; A:IFA=0THENR$=R$+"0":G0T02 



40 

: rem 

175 

230 

R$=R$+"1" 

: rem 

94 

240 

B = 0: FORI = 0TO7:A=VAL(MID$(R$ 

, LEN(RS)-1 


,1)) :B=B+A* 211 :NEXT 

: rem 

47 

250 

W2$=CHRS(B):PRINT"{GIU'}+CHR$("B" 

) 


{GIU 1 }" 

: rem 

69 

251 

PRINT"{GIU'JPREMI UN TASTO" 

: rem 

37 

252 

GETAS:IFAS=""THEN252 

: rem 

85 

300 

0PEN2, 2,0 , W1$+W2$ 

: rem 

97 

310 

0PEN15,8,15,"I" 

: rem 

21 9 

320 

PRINTCHRS(14)CHRS(8) 

:rem 

99 


330 


340 

350 

360 


PRINTCHRS(147)CHR$(17)CHRS(17)"NOME D 
EL FILE SEQUENZIALE INPUT FI$ 

:rem 235 

OPEN3,8,3,FI$+", S ,R" :rem 10 

INPUT#15,EN,EMS,ET,ES:IFENTHENPRINTEM 
$:CLOSE3:CLOSE2:CLOSE15 : END :rem 149 
GETI3, A$:RS= ST :IFA$=""THENPRINT"FIL 
E NON CORRETTO": STOP:AS=CHR$(0) 




: rem 

45 

370 

PRINTAS;:PRINT#2,A$; 

: rem 

175 

380 

IFRS=0THEN360 

: rem 

4 

390 

PRINT#2, CHR$(A) ;CHR$ (0) 

:rem 

250 

400 

INPUT#!5,EN,EM$,ET,ES:IFENTHENPRINTEM 


$:CLOSE3:CLOSE2:CLOSEl5 : END 

: rem 

145 

410 

CLOSE15 

: rem 

11 3 

420 

FORI=0TO255:PRINT#2,CHR$(0); 

: NEXT 




: rem 

240 

430 

PRINT"UN ALTRO FILE ?"; 

: rem 

39 

440 

GETAS:IFA$=""THEN440 

: rem 

83 

450 

IFA$="S"THENRUN 

: rem 

133 

460 

CLOSE2: END 

: rem 

83 



I libri J .soft 



Poper Book 

raccolto di programmi suddivisi per 
inocchino di Paper Soli, il primo 
settimanale di software su corta pei 
il tuo computer. 


Paper Book • programmi per Apple II 
Cod. ASOC005 1. 18.000 
Poper Book • programmi per VIC 20 
Cod. ASO C0031. 18.000 i 

Paper Book - programmi per 
Commodore 64 
Cod. ASO C004 l. 18.000 
Paper Book - programmi per Texas 
TI 99/4A 

Cod. ASOC0071. 18.000 
Poper Book - programmi per ZX 
Speclrum 

Cod. ASO C006 l. 18.000 

In ogni volume, corredato di 
cassetta, oltre 40 programmi per il 
tuo computer: giochi grafici, utility. ^ 
arcade, odventure. una miscela 
esplosivo di software "pronto 
oH'uso"! 


Puoi ordinare direttamente i titoli presentati compilando 
ed inviondo il coupon pubblicato oppure acquistarli presso i più 
qualificati computer shop e le migliori librerie. 


CZDOtA DI OtUNAZIONI-imi 

Comodoni © spedivo Mi bollo chioso O: 
l.to'l - Viale Ito-.icll. 5-20124 MJorra 

■et. 02/683797-688084t 688C842-6880843-6888228 

Ordvso I seguenti kbn per un «riporlo loiole di l_. I 2.000 

come coninbulo toso per spese di spedinone 

Cod.,- Cod.__ Cod_ 

Cod._ Cod_Cod, 


□ Contorni allego* 

□ Assegno allegato n*____ 

□ Ho spetto I imporlo o merco vogfco posiate 

□ Ho versoio l'imporlo sul CCP n* 19445204 «Mestolo o I toli - Milano 

□ Popheiò «1 comrossogno oi postino ol ricevimento de- volumi 

Home.___ 


Cogno"*»___ 



CAP C*nS 



St rxrh^ua fattura • cod** fivrnU 

Doto firma 
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di L. Fraley 

trad. ed adatt. 

di L. Priotto 


Questo simpatico gioco d'azione 
vi trasformerà in tiratori scelti 
con il fucile, proiettandovi in 
una gara di tiro al piattello. 

P er prima cosa inserite un joystick 
nella porta 2 e date il RUN al pro¬ 
gramma. Il C64 disegnerà sullo scher¬ 
mo il campo di gioco e vi porrà tre do¬ 
mande per regolare la difficoltà della 
competizione. 

Dovrete scegliere la velocità del piattel¬ 
lo, da 1 (lenta) a 15 (veloce), e la veloci¬ 
tà di spostamento del mirino del fucile, 
da 1 (lenta) a 40 (veloce). 

Questi fattori determineranno la diffi¬ 
coltà della prestazione, tanto maggiore 
quanto più il piattello è veloce e il miri¬ 
no lento nei suoi spostamenti. 

Dopo aver inserito i valori preferiti po¬ 
trete premere il pulsante di fuoco, per 
valutare quale velocità corrisponda a 
questi valori, oppure muovere il joy¬ 
stick in qualunque direzione per passa¬ 
re alla domanda seguente. 

II programma vi chiederà se volete mo¬ 
dificare il livello di difficoltà: in caso af¬ 
fermativo premete il pulsante di fuoco, 
mentre in caso negativo muovete la le¬ 
va del joystick in una direzione qualsia¬ 
si. 

Nella parte bassa del campo di gioco ci 
sono cinque diverse postazioni: l’omino 
con il fucile indica la vostra posizione 
attuale, che cambierà dopo cinque spa- 
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Il mirino nero.del fucile si trova sulla 
sinistra della piazzola di tiro, sopra 
l’omino: con il joystick potete spostare 
il mirino stesso, in base alla velocità che 
avrete inserito inizialmente. 

Se la postazione cambia, viene modifi¬ 
cata anche la posizione di partenza del 
mirino. 

La pressione del pulsante di fuoco farà 


partire un piattello: con il joystick cerca¬ 
te di portare il collimatore del mirino 
sopra il piattello in movimento, e pre¬ 
mete fuoco per sparare. Se fate centro, 
il piattello si disintegra e guadagnate un 
punto. 

Il gioco avrà termine quando avrete 
sparato tutte le 25 cartucce in dotazio¬ 
ne. 

Buon divertimento! 


Tiro al piattello 


100 V=53248:POKEV+16,.:POKE54 2 96,1 5 

treni 218 

110 J=56320 :POKEV+28,1:POKEV+37,1:POKEV+3 
9,9:PO=-l treni 170 

120 GOSUB1610 treni 219 

130 POKEV+38,22:POKE2041,192 :POKE2042,1 93 
:POKEV+27,4:POKEV+23,1:POKEV+29,1 

treni 66 

140 POKEV+21,4 + 2+1:POKEV+40,.:POKEV+41,1 : 
DEFFN JO(O)=15-(PEEK(56320)AND15) 

treni 187 

150 DEFFNFB(O)=PEEK(56320)AND16 :rem 14 
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160 PRINT"(CLR){ 15 GIU’}"TAB(12)»{RVS) 
[<6>]£[<8>]{ 14 SPAZI)[<6>](<*>]" 

treni 48 

170 PRINTTAB(II)"{RVS}£{ 16 SPAZI}[<*>]" 

:rem 141 

180 PRINTTAB(10)"{RVS}£{ 18 SPAZI}[<*>]": 
FORT=lT04 : rem 71 

190 PRINT"(RVS){ 40 SPAZI}";t NEXT 

:rem 49 

200 PRINT"(RVS)[<6>]{ 2 SPAZI)[<4>] 

{ 3 SPAZI)[<6>){ 5 SPAZI)[<4>) 

{ 3 SPAZI)(<6>]{ 5 SPAZI}[<4>J 
{ 3 SPAZI)[<6>J{ 5 SPAZI}[<4>] 

{ 3 SPAZI)[<6>] { 5 SPAZI}[<4>J 
{ 3 SPAZI)[<6>]{ 3 SPAZI)"; :rem 57 




210 

220 

230 

240 


PRINT"{RVS}{ 2 

SPAZI}[<4>] 

1 [ <6> ] 

630 

IFS<1ORS> 40THEN500 

: rem 

66 

{ 5 SPAZI}[< 4>1 

2 [<6>]{ 5 

SPAZI} 

640 

IFDI<TORDI>15THEN500 

: rem 

185 

[<4>) 3 l<6>]{ 

5 SPAZI}[<4>) 4 [<6>] 

650 

IFFB=.THEN500 

: rem 

225 

{ 5 SPAZI}I<4>) 

5 [<6>]{ 3 

SPAZI} 

660 

X3=.:Y3=.:GOTO160 

: rem 

205 

{HOME}"; 


:rem 179 

670 

REM POSTAZIONE #1 

: rem 

225 


PR INT"{WHT}{RVS}{ 40 SPAZI}"; 

:rem 183 

PRINT"{WHT}{RVS}{ 40 SPAZI}":PRINT" 

{ 2 SU}{RVS}HI SCORE"PEEK(2):rem 113 
FORT=1 984TO2023 :POKET,160:POKET+ 54 272 



, 13:NEXT 

: rem 

195 

250 

IFDI = . THEN 500 

: rem 

226 

260 

GOTO440 

: rem 

105 

270 

JV=FNJO( . ) : IFWBTHEN380 

: rem 

78 

280 

IFJV=1ORJV= 50RJV= 9THENY2 = Y2- 

S 




: rem 

163 

290 

IFJV=20RJV=60RJV=10THENY2=Y2+S 




: rem 

204 

300 

IFJV> 3ANDJV< 7THENX2 = X2-S 

: rem 

25 

310 

IFJV>7ANDJV<1 1 THENX2 = X2+S 

: rem 

71 

320 

IFX2>255THENPOKEV+16,PEEK(V+1 6)+2 

: X2 = 


X2-255 

: rem 

9 

330 

IFX2<.AND(PEEK(V+16)AND2)=2THENX2 

= 255 


—X2: POKEV+16 , PEEK(V+16)-2 

: rem 

191 

340 

IFY2<,THENY2= . 

: rem 

64 

350 

IFY2>255THENY2=255 

: rem 

31 

360 

IFX2< . THENX2= . 

: rem 

64 

370 

IFX2>255THENX2=255 

: rem 

31 

380 

KL=PEEK(53278) : POKEV+2 , X2 : POKEV+3 

,Y2: 


IFFNFB( . ) =. ANDWB= . THEN910 

: rem 

3 

390 

H=H+1:X3=X3+Dl : Y3=Y3+D2 : IFX3>255THENX 


3= .: POKEV+16 , PEEK(V+16)+4 

: rem 

175 

400 

IFY3<,ORY3>255THEN440 

: rem 

231 

410 

IFH>40ANDWB=1THEN4 40 

: rem 

175 

420 

IFX3<.THEN440 

: rem 

225 

430 

POKEV+4,X3:POKEV+5,Y3 : POKE54 276 , 1 28: G 


OTO270 

: rem 

77 

440 

WB= . :H= .: PO=PO+1 : IF(PEEK(V+16)AND2)=2 


THENPOKEV+16,PEEK(V+1 6)-2 

: rem 

181 

450 

ONINT((PO+5)/5)GOSUB670,700, 

730,760,7 


90,790 

: rem 

45 

460 

PRINT"{HOME} { RVS }{ WHT } SCORE= 

";SC" 



{SIN}/25","ROUND"PO 

: rem 

45 

470 

IFPO=25THEN850 

: rem 

57 

480 

JV=FNJO (.): FB=FNFB (.): IFJV= . 

ANDFB 

= 16T 


HEN480 

: rem 

93 

490 

GOTO270 

: rem 

m 

500 

PRINT"{HOME}{RVS}{BLK} { 9 SPAZI }>>>>> 


TRAP SHOOT <<<<<{ 9 SPAZI}" 

' : rem 

65 


510 INPUT"{GIU'}VELOCITA' PIATTELLO 

{ 2 SPAZl}(1-15)";DI:INPUT"VELOCITA' 
MIRINO (1 - 40)";S : rem 127 

520 PRINT"{GIU'JESEMPIO (FUOCO=S/SU=N)" 

:rem 74 


590 POKEV+4,X3:POKEV+5, Y3 :FORY=1T075:NEXT 
Y,T:POKEV+21,7 :rem 9 

600 PRINT"{GIU'}MODIFICA (FUOCO=S/SU=N) 

:rem 81 

610 FB = FNFB(.) :JV=FNJO(.) : IFFB=16ANDJV=.T 
HEN610 : rem 83 

620 PRINT"{HOME}";:FORT=1TOl0 :PRINT" 

{ 40 SPAZI}";:NEXT : rem 93 


680 X=X1:Y=Yl:POKE2040,191:X1=33:Y1=192:X 
2=126:Y2=157:X3=170:Y3=167 :rem 131 
690 POKEV+1,Y1:POKEV+2,X2 :POKEV+3,Y2:POKE 
V+4,X3:POKEV+5 » Y3:POKEV,XI:GOTO8 20 

: rem 9 

700 REM POSTAZIONE #2 : rem 220 

710 X=X1:Y=Y1:POKE2040,191:X1=97:Y1=192:X 
2=149:Y2=157:X3=170:Y3=167:GOSUB960 

:rem 229 

720 POKEV+1,Y1:POKEV+2,X2:POKEV+3,Y2:POKE 
V+4,X3:POKEV+5,Y3:GOTO820 :rem 143 

730 REM POSTAZIONE #3 : rem 224 

740 X=X1:Y=Yl:POKE2040,191:X1=161:Y1=192: 
X2=169:Y2=157:X3=170:Y3=167:GOSUB960 

:rem 18 

750 POKEV+1,Yl:POKEV+2,X2 :POKEV+3,Y2:POKE 
V+4,X3:POKEV+5, Y3 :GOTO820 :rem 146 
760 REM POSTAZIONE #4 -.rem 228 

770 X=X1:Y=Y1:POKE2040,190:Xl=220:Yl=192: 
X2=189:Y2 = 1 57:X3 = 1 70:Y3=167 :GOSUB960 

:rem 18 

780 POKEV+1,Y1:POKEV+2,X2:POKEV+3,Y2:POKE 
V+4,X3:POKEV+5, Y3 :GOTO820 :rem 149 
790 REM POSTAZIONE #5 :rem 232 

800 X=X1 : Y=Y1 :POKE2040,1 90 : XI=28 :Yl = 192 : X 
2 = 216 :Y2 = 1 57 :X3=1 70 :Y3=167 :GOSUB960 

: rem 217 

810 POKEV+1,Y1:POKEV+2,X2 :POKEV+3,Y2:POKE 
V+4, X3 :POKEV+5,Y3 : rem 130 

820 POKE2042,193:D1=INT(RND(.)*5)+DI:D=IN 
T(RND(.)*100)+1 :IFD>50THENDl=-Dl 

:rem 160 

830 D2=INT(RND(.)*5)+DI:D2=-D2:IF(PEEK(V+ 
16)AND4)=4THENPOKEV+16,PEEK(V+1 6)- 4 

:rem 181 

840 RETURN :rem 124 

850 PRINT:PRINT"{HOME}{ 9 GIU'}"TAB(15)" 
{RVS}GAME OVER”:PRINTTAB(15)"{GIU'}FU 
OCO = INI ZIA" ' : rem 66 

860 PRINTTAB(15)”{GIU'}FUOCO=INIZIA":PRIN 
TTAB(15)"SU=FINE " : rem 43 

870 IFSOPEEK (2) THENPOKE2 ,SC: PRINT" {HOME} 
{GIU'}{RVS}HI SCORE"SC : rem 224 

880 JV=FNJO(.):FB=FNFB(.):IFFB=0THENPOKEV 
+ 21,0 :RUN : rem 78 

890 IFJVTHENEND :rem 214 

900 GOTO870 :rem 113 

910 WB=1 : REM SPARO : rem 68 

920 POKE54 273,2 :POKE54 272,255:POKE54277,. 


530 

FB=FNFB(.):JV=FNJO(.):IFFB= 

. THEN560 


:POKE54 278,252:POKE54276,1 29 

: rem 

1 59 


:rem 65 

930 

IFKLO6THEN390 

: rem 

61 

540 

IFJVTHEN600 

:rem 141 

940 

POKE2042,194:D2=-D2:SC=SC+1 

: rem 

237 

550 

GOTO530 

:rem 107 

950 

GOTO390 

: rem 

11 5 

560 

GOSUB82 0:X3 = 1 70:Y3 = 167 :POKE2042,1 93 :P 

960 

IFX=X1THENRETURN 

: rem 

91 


OKEV+21,4 :FORT=1TOl0 

:rem 126 

970 

POKEV+16,.:IFX<X1THENFORT=XTOXl:POKEV 

570 

H=H+1:X3=X3+D1:Y3=Y3+D2:IFX3>255THENX 


,T:FORY=lTOl0 :NEXTY,T 

: rem 

159 


3=.:POKEV+16,PEEK(V+16)+4 

:rem 175 

980 

IFX>X1THEN1000 

: rem 

63 

580 

IFY3<.THENY3=. 

:rem 72 

990 

RETURN 

: rem 

1 30 


1000 U=.:FORT=XTOXl+255 :IFT>255THENPOKEV+ 
16,PEEK(V+16)ORI :U = 1 : rem 20 

1010 IFU = 1THENPOKEV,T-2 56 : GOTO!030 

:rem 73 

1020 POKEV,T : rem 200 

1030 FORY=ITO5:NEXTY,T:RETURN :rem 182 
1 040 FORT=12160TO124 79 : READA:POKET,A :NEXT 

:rem 27 
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980 IFX>XlTHENl000 :rem 63 
990 RETURN :rem 130 
1000 U=.:FORT=XTOX1+255 : 1FT>255THENPOKEV+ 



16,PEEK(V+l6)ORl:U=1 : rem 

20 

1010 

IFU = 1THENPOKEV,T-2 56 : GOT01030 




: rem 

73 

1020 

POKEV 

’, T :rem 

200 

1030 

FORY = 

1T05:NEXTY,T:RETURN :rem 

1 82 

1040 

FORT= 

12160TO1 24 79 : READA:POKET,A : 

NEXT 



: rem 

27 

1050 

REM DATI RELATIVI AGLI SPRITE 




: rem 

32 

1060 

DATA 

000,000,000,000,063,000 




: rem 

38 

1070 

DATA 

000,031,000,000,023,000 




: rem 

39 

1080 

DATA 

170,135,000,010,189,080 




:rem 

75 

1090 

DATA 

004,124,000,001,060,000 




: rem 

50 

1100 

DATA 

000,060,000,000,060,000 




: rem 

36 

ino 

DATA 

000,060,000,000,255,000 




:rem 

43 

1120 

DATA 

000,195,000,000,195,000 




:rem 

56 

1 1 30 

DATA 

000,195,000,000,195,000 




: rem 

57 

1140 

DATA 

003,000,192,003,000,192 




:rem 

58 

1 1 50 

DATA 

003,000,192,003,000,192 




: rem 

59 

1 160 

DATA 

003,000,192,000,000,000 




: rem 

45 

1 1 70 

DATA 

000,003,240,000,003,208 




: rem 

53 

1 1 80 

DATA 

000,003,080,000,003,066 




: rem 

58 

1190 

DATA 

170,021,250,160,000,244 




: rem 

68 

1200 

DATA 

064,000,241,000,000,240 




: rem 

48 

1210 

DATA 

000,000,240,000,000,240 




:rem 

38 

1 220 

DATA 

000,003,252,000,003,012 




: rem 

45 

1230 

DATA 

000,003,012,000,003,012 




: rem 

40 

1 240 

DATA 

000,003,012,000,012,003 




: rem 

41 

1250 

DATA 

000,012,003,000,012,003 




: rem 

42 

1260 

DATA 

000,012,003,000,012,003 




: rem 

43 

1 270 

DATA 

000,000,000,000,000,001 




:rem 

33 

1280 

DATA 

057,000,003,057,128,007 




: rem 

78 

1 290 

DATA 

255,192,015,255,224,031 




: rem 

88 


1 300 

DATA 

255,240,063,255,248,127 




: rem 

89 

1310 

DATA 

255,252,255,255,254,255 




: rem 

95 

1 320 

DATA 

255,254,255,255,254,255 




:rem 

98 

1 330 

DATA 

255,254,255,255,254,255 




: rem 

99 

1 340 

DATA 

255,254,127,255,252,063 




: rem 

93 

1 350 

DATA 

255,248,031,255,240,015 




: rem 

85 

1 360 

DATA 

255,224,007,255,192,003 




: rem 

86 

1 370 

DATA 

255,128,001,255,000,000 




:rem 

69 

1 380 

DATA 

000,000,000,000,000,000 




: rem 

34 

1 390 

DATA 

000,000,000,000,000,000 




: rem 

35 

1400 

DATA 

000,000,000,000,000,000 




:rem 

27 

1410 

DATA 

000,000,000,000,000,000 




: rem 

28 

1420 

DATA 

003,255,128,007,255,192 




: rem 

86 

1430 

DATA 

015,255,224,000,000,000 




:rem 

56 

1440 

DATA 

000,000,000,000,000,000 




: rem 

31 

1450 

DATA 

000,000,000,000,000,000 




: rem 

32 

1460 

DATA 

000,000,000,000,000,000 




:rem 

33 

1470 

DATA 

000,000,000,000,000,000 




: rem 

34 

1 480 

DATA 

000,000,000,000,000,000 




: rem 

35 

1490 

DATA 

000,000,000,006,000,002 




: rem 

44 

1 500 

DATA 

000,002,000,000,000,032 




: rem 

35 

1510 

DATA 

012,000,033,000,000,000 




:rem 

38 

1 520 

DATA 

000,036,096,064,000,000 




: rem 

64 

1 530 

DATA 

000,004,000,032,004,004 




: rem 

48 

1 540 

DATA 

000,003,104,001,032,016 




, : rem 

53 

1 550 

DATA 

049,000,000,000,000,016 




:rem 

53 

1 560 

DATA 

000,006,016,000,006,080 




: rem 

61 

1570 

DATA 

000,000,001,128,003,000 




: rem 

50 

1 580 

DATA 

000,000,000,016,128,000 




: rem 

54 

1 590 

DATA 

000,000 :rem 

53 

1600 

RETURN :rem 

167 

1610 

N$ = " 

SUPERCOMMODORE":PRINT"{CLR} 



{WHT}{ 5 GIU'}"TAB(3)"{RVS}£ 



{ 5 SPAZI}{OFF}£" :rem 

124 

1620 

PRINTTAB(5)"{RVS}£{OFF}£" :rem 

237 

1630 

PRINTTAB(4)"{RVS}£{OFF}£ {RVS}£ 



{OFF}£{RVS}£{ 2 SPAZI}{OFF}£{RVS} 

£{ 2 SPAZI)Toff}£" :rem 207 

1640 PRINTTAB(3)"{RVST£{OFF}£ {RVS}£{OFF} 
£ {RVS}£{0FF}£{RVS}£{0FF}£{RVSTE 
Toff}£" :rem 197 
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1650 PRINTTAB(12)"{RVS}£{OFF}£":PRINT 

: rem 229 

1660 PRINTTAB(15)"{RVS}£{ 5 SPAZI}{OFF} 

£" :rem 34 

1670 PRINTTAB(14)"{RVS}£{OFF}£{ 5 SPAZI) 
{RVS}£{OFF}£" : rem 24 

1680 PRINTTAB(14)"[<*>]{RVS}{ 4 SPAZI} 

{OFF}£{RVS}£{OFF}£" :rem 79 

1 690 PRINTTAB (1 7) " {RVSTe{OFF}£{RVS}£ 

{ 2 SPAZI } {OFF } £, {RVS } £ { 1 SPAZI} 
{OFF}£{RVS}£{ 2 SPAZlj{OFF}£{RVS} 

£{ 2 SPAZI}IOFF}£" : rem 255 

1700 PRINTTAB(12)"{RVS}£{ 4 SPAZl}{OFF} 
£{RVS}£{OFF}£{RVS}£{OFF}£{RVS}£ 

T 2 SPAZI}{OFF}£{RVS}£{ 1 SPAZI} 

{OFF}£ {RVS}£{OFF}£":PRINT : rem 175 
1710 GOSUBT040:PRINT"{BLK}"SPC(5)"." 

:rem 135 

1 720 PRINT"{RVS}{ 6 SPAZI}" : rem 173 

1730 PRINT"{RVS}{ 2 SPAZI}" :rem 174 

1 740 FORT=1TO500:NEXT : rem 38 

1 750 POKE542 73,2 : POKE54 272, 255 : POKE54277., 
.:POKE54278,252:POKE54276,129 

:rem 209 


1760 PRINT"{ 2 SU}{ 6 DES}[<7>){< 2 Y>] 

{RVS}"N$ : rem 251 

1770 FORT=1TOl00 :NEXT:POKE54276,1 28 :FORT= 
1T02000:NEXT:RETURN : rem 56 



T 


SUPERC0MM0D0RE è bello, però... (ovvero sug¬ 
gerimenti, idee, critiche, richieste e tutto ciò che vi 
passa per la testa). 


SUPERC0MM0D0RE 

INPUT/OUTPUT 


La rubrica iNPUTOUTPUT * gratuita ab 
ap«na a tutto i lattoo Chi dasibara corri 
prara. vendere o cambiare hardware o 
•oftware può mviare il tagliando a J io« 
• Viale Reatelii 5 70124 MILANO 


□ COMPRO □ VENDO □ CAMBIO 

□ VIC 20 Q C 16 □ C64 □ PERIF. □ SOFTWARE 


Nome .. 
Cognome 


Via . C.A.P. 

Città . Tel. 

V___ J 


Nome .Cognome. 

Via . C.A.P. 

Città .Tel. 

V___ J 
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L O A 




dì F. Lindsey 

trad. ed adatt. 

di L. Priotto 



Wet Paint (vernice fresca) vi tra¬ 
sforma in abili pittori in gara con 
la velocità del C64. 

I n questa originale versione dei classi¬ 
ci giochi "a serpentone" vi trovate a 
maneggiare - tramite un joystick - un 
pennello, che lascia dietro di sé una scia 
di intenso colore. Siete infatti appena 
stati ingaggiati per pitturare una vasta 
superficie e, dal momento che vi paga¬ 
no a metro quadro, dovete fare i conti 
con i vostri colleghi (gestiti dal compu¬ 
ter) i quali cercano anch'essi di pittura¬ 
re la maggior superficie possibile, cer¬ 
cando contemporaneamente di ostaco¬ 
larvi. Il vostro datore di lavoro è stato 
infatti molto chiaro: chi andrà per erro¬ 
re a pitturare dove la vernice è fresca 
verrà immediatamente licenziato. 

I vostri colleghi cercheranno quindi di 
fare in modo che andiate a pitturare 
sopra la scia lasciata da uno di essi, 
oppure che andiate a sbattere contro 
uno dei bordi del muro, rovinando il 
pennello. 

Nella prima fase del gioco dovrete fare 
i conti soltanto con un collega, mentre 
man mano che il gioco si sviluppa, gli 
avversari aumenteranno in numero e in 
bravura nel cercare di “incastrarvi”. 
Nella parte alta dello schermo viene vi¬ 
sualizzata “in tempo reale” la cifra che 
siete riusciti a guadagnare con il vostro 
fido pennello. 

Note al programma 

“Wet Paint” è composto da una breve 
parte in BASIC, seguita dal programma 
vero e proprio in linguaggio macchina. 
Al contrario della maggior parte dei 
programmi, in cui le due parti in BASIC 
e in linguaggio macchina sono separate, 
e vengono quindi caricate da cassetta 
una dopo l’altra, in “Wet Paint” i byte 
del codice macchina iniziano immedia¬ 
tamente dopo la parte introduttiva in 
BASIC. Per questo motivo non è possi¬ 
bile, dopo aver caricato il programma 
da cassetta, apportare alcuna modifica 
al listato BASIC: sia l’aggiunta che l’eli¬ 



minazione di caratteri o linee di pro¬ 
gramma provocherebbe infatti una tra¬ 
slazione verso l’alto o verso il basso del 
codice macchina, che Io “rilocherebbe” 
in locazioni di memoria non appropria¬ 
te. 

Con la raccomandazione quindi di non 
modificare in alcun modo la parte BA¬ 
SIC del programma, esso si carica da 
cassetta e si manda in esecuzione in 
modo del tutto standard. 

Una nota infine per coloro che, non pos¬ 
sedendo la cassetta allegata alla rivista, 
devono digitare “Wet Paint”: abbiamo 


preferito fondere in un unico listato in 
“formato MLX” sia la parte BASIC che 
in linguaggio macchina, in quanto la di¬ 
gitazione separata delle due parti 
avrebbe richiesto in seguito un’opera¬ 
zione di collegamento in memoria un 
po' complessa per i “non addetti ai lavo¬ 
ri", con il rischio di errori e di trovarsi, 
in definitiva, con un programma non 
funzionante. 

I “patiti" di MLX scopriranno con que¬ 
sto listato come anche un programma 
BASIC sia digitabile tramite MLX... 
Strano? No, MLX non fa altro che scri- 
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vere o leggere dei byte nella RAM del 
C64; se questi byte rappresentino del 
codice macchina piuttosto che istruzioni 
BASIC è una cosa che non interessa 
affatto ad MLX! 

Le istruzioni per digitare il programma 
tramite MLX sono: 

Wet Paint 

2049 
2055 
2061 
2067 
2073 
2079 
2085 
2091 
2097 
21 03 
21 09 
21 1 5 
21 21 
21 27 
21 33 
21 39 
21 45 
21 51 
21 57 
21 63 
21 69 
21 75 
21 81 
21 87 
21 93 
21 99 
2205 
221 1 
221 7 
2223 
2229 
2235 
2241 
2247 
2253 
2259 
2265 
2271 
2277 
2283 
2289 
2295 
2301 
2307 
231 3 
231 9 
2325 
2331 


1. digitare in modo diretto: 
POKE44,32:POKE32’256,0:NEW 

2. caricare e attivare MLX. Rispondere 
alle sue domande con: 

indirizzo iniziale: 2049 


indirizzo finale : 6614 

3. digitare “Wet Paint” e salvarlo, tra¬ 
mite MLX, su nastro o disco. Una volta 
salvato il programma si caricherà e atti¬ 
verà come qualsiasi programma BA¬ 
SIC. 


-.02 8,00 8,01 0,000,1 43,032,222 
: 0 32,032,032,032,032,032,1 99 
:032,032,032,032,032,087,004 
:069,084,032,080,065,073,166 
: 0 78,084,000,034,00 8,01 1 , 240 
: 000,1 43,00 0,063,00 8,01 2,001 
:000,143,032,032,032,032,052 
: 032,032,032,032,032,032,235 
: 0 70,082,065,078,075,032,1 95 
:076,073,078,068,083,069,246 
: 0 89,000,092,00 8,01 3,000,007 
si 43,032,032,032,032,032,1 1 4 
:032,032,032,032,032,080,057 
:069,082,046,046,046,046,158 
: 032,046,046,046,046,046,0 91 
: 000,1 21 ,008,01 4,000,1 43,1 21 
: 0 32,032,032,032,032,032,033 
: 032,032,032,032,0 83,0 85,1 43 
: 0 80,069,0 82,032,067,0 54,237 
: 0 52,032,046,046,046,000,081 
: 1 50,008,01 5,000,1 4 3,032,21 3 
:032,032,032,032,032,032,063 
:032,032,032,033,033,033,072 
:033,033,033,033,033,033,081 
:033,033,033,033,000,156,177 
:008,016,000,143,000,195,001 
: 008,01 7,000,1 43,032,03 5, 1 36 
:035,035,035,035,035,035,117 
-.03 5, 03 5,03 5,03 5,03 5,035,1 23 
:035,035,035,035,035,035,129 
: 035,035,035,035,035,035,1 35 
:035,035,035,035,035,035,141 
:035,000,201,008,018,000,199 
:143,000,207,008,019,000,064 
-.1 43,000,21 3,008,020,000,077 
:143,000,219,008,021,000,090 
:143,000,225,008,022,000,103 
:143,000,238,008,080,000,180 
:1 53,034,147,01 7,1 59, 1 42,1 1 3 
: 008,034,000,004,009,0 90,1 24 
-.000,1 51 ,053,0 51 ,0 50,0 56,090 
: 048,044,048,0 58,1 51 , 053,1 37 
: 0 51 ,0 50,056,04 9,04 4,04 8,039 
:000,033,009,100,000,153,042 
:166,049,049,041,034,213,049 
: 201 ,032,032,21 3,201 , 032,21 4 
: 21 3,1 92,1 92,201 , 032,21 3,040 
:192,192,192,192,201,000,228 


:062,009,1 1 0,000,1 53,1 66,021 
: 049,049,041 , 034,221 , 221 , 1 42 
:032,032,221 , 221 , 032,221 , 03 6 
: 21 3,1 92,203,032,202,1 92,061 
: 201 , 21 3,1 92,203,000,089,1 87 
:009,120,000,153,166,049,048 
: 049,041 , 03 4,221 , 221 , 21 3,080 
: 201 , 221 , 221 , 032,221 , 202,1 49 
: 201 , 032,032,032,03 2,221 , 1 1 9 
: 221 ,000,116,009,130,000,051 
:153,166,049,049,041,034,073 
: 221 , 202,203,202,203,221, 071 
:032,221,213,203,032,032,070 
: 032,032,221 , 221 , 000,1 43,24 8 
: 009,1 40,000,1 53,1 66,04 9,1 22 
: 049,041,03 4,221 ,032,21 3,201 
: 201 , 032,221 , 032,221 , 202,01 4 
: 1 92,201 ,032,032,032,221 , 077 
: 221 ,000,1 70,00 9,1 50,000,1 79 
:1 53,1 66,04 9,04 9,041 ,03 4,1 27 
: 202,1 92,203,202,1 92,203,067 
: 032,202,1 92,1 92,203,032,244 
:032,032,202,203,000,206,072 
: 009,1 60,000,1 53,1 66,055,202 
: 041 ,03 4,21 3,1 92,1 92,201 , 02 6 
:032,213,192,192,201,032,021 
: 21 3,201 , 032,21 3,1 92,1 92,208 
: 201 , 21 3, 201 ,032,21 3,1 92,223 
: 1 92,1 92,1 92,201 ,000,242,1 96 
: 009,1 70,000,1 53,1 66,0 55,24 8 
: 041 ,034,221 , 21 3,201 , 221 , 1 20 
: 032,221 , 21 3,201 , 221 , 032,1 1 5 
: 221 , 221 ,032,221 , 21 3,201,0 54 
: 221 , 221 , 221 ,032,202,1 92,04 0 
: 201 ,21 3, 1 92,203,000,02 0,042 
: 01 0,1 80,000,1 53,1 66,055,039 
: 041 ,034,221 , 202,203,221 , 1 47 
-.0 32,221 , 1 73,1 89,221 , 032,099 
: 221,221 ,032,221 , 221 , 221 , 1 1 8 
: 221 , 221 , 221 , 032,032,032,002 
: 221 , 221 ,000,0 54,01 0,1 90,201 
: 000,1 53,1 66,0 55,041 , 03 4,21 6 
: 221 , 21 3,1 92,203,032,221 ,087 
:1 76,1 74,221 , 032,221 , 221 , 0 56 
:032,221 , 2 21 , 221 , 221 , 221 , 1 54 
: 221 ,032,032,032,221 , 221 ,03 8 
:000,088,010,200,000,1 53,248 
:1 66,0 55,041 ,03 4,221 , 221 ,02 9 
:032,032,032,221 , 221 , 221 , 056 
: 221 , 032,221 , 221,03 2,221 , 2 51 


2337 

2343 

2349 

2355 

2361 

2367 

2373 

2379 

2385 

2391 

2397 

2403 

2409 

241 5 

2421 

2427 

2433 

2439 

2445 

2451 

2457 

2463 

2469 

2475 

2481 

2487 

2493 

2499 

2505 

251 1 

251 7 

2523 

2529 

2535 

2541 

2547 

2553 

2559 

2565 

2571 

2577 

2583 

2589 

2595 

2601 

2607 

261 3 

261 9 

2625 

2631 
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263 7 : 2 21 ,221 ,202,203,221 ,032,153 
2 64 3 : 032,032,221 , 221 , 000,1 22,1 99 
2 64 9 :01 0,21 0,000,1 53,1 66,055,1 71 
2655 :041 , 034,202,203,032,032,1 27 
2 661 : 032,202,203,202,203,03 2,207 
2667 :202,203,032,202,203,202,127 
2673 :192,192,203,032,032,032,028 
2 679 : 202,203,000,1 61 , 01 0,2 50,1 77 
2 685 : 000,1 53,034,00 5,01 7,01 7,095 
2 691 :01 7,02 9,02 9,02 9,02 9,02 9,037 
2 697 : 029,029,029,029,029,029,0 55 
2 70 3 : 029,066,089,032,070,082,2 55 
2709 :065,078,075,032,076,073,036 
2 71 5 :0 78,068,0 83,069,0 89,000,030 
2 721 : 202,01 0,004,001 , 1 53,03 4,053 

2 72 7 ; 01 7,01 7,01 7,01 7,029,02 9,037 
2 73 3 : 02 9,02 9,02 9,02 9,02 9,02 9,0 91 
273 9 : 029,029,0 73,0 83,0 84,0 82,047 
2745 :085,090,073,079,078,073,151 
2751 : 032,032,032,040,083,047,201 

2757 :078,041,032,063,000,234,133 
2763 :010,044,001,067,178,052,043 
2 76 9 : 0 58,075,1 78,053,0 53,051 , 1 65 
2 775 : 048,0 50,0 58,067,0 86,1 78,1 90 
2 781 : 0 53,0 53,0 51 , 050,057,058,031 
2787 :075,082,178,075,170,049,088 
2 793 :000,01 5, 01 1 , 054,001 , 075,1 33 
2799 :178,075,170,049,058,139,140 
2 80 5 :0 75,1 78,067,086,1 67, 067,1 1 7 
2 81 1 :1 78,067,1 70,04 9,058,075,080 

2 81 7 : 1 78,075,082,0 58,1 39,067,088 
2 82 3 :1 78,04 9,0 53,1 67,067, 1 78,1 87 
2 82 9 : 049,000,044,01 1 ,064,001 ,1 82 
2835 :129,076,178,056,048,164,158 
2 841 : 0 53,0 50,048,1 69,0 52,04 8,1 89 
2 84 7 : 0 58,1 51 , 067,076,1 70,075,1 1 6 
2853 :170,076,044,067,058,130,070 
2859 :000,089,Oli,074,001,161,123 
2865 :065,036,058,145,049,171,061 
2871 :040,065,036,178,034,078,230 
2 87 7 : 034,041 , 1 71 , 050,1 72,04 0,0 57 
2 883 : 0 65,036,1 7 8,034,083,03 4,241 
2889 : 041 , 1 37,0 51 , 049,048,044,1 87 
2 895 : 0 50,048,048,048,044,049,1 1 0 
2901 :048,048,048,000,121,Oli,105 

290 7 : 232,003,1 53,034,1 4 7,01 7,1 65 

291 3 : 0 67,0 79,078,071 , 082,065,02 7 
2 91 9 :0 84,085,076,065,090,073,064 
2 92 5 : 0 79,078,073,044,032,066,22 5 
2 931 : 0 85,068,068,089,033,000,202 
2 93 7 :1 68,01 1 , 242,003,1 53,034,220 
2 94 3 : 01 7,079,082,065,032,0 70,21 6 
2 94 9 :0 65,073,032,080,065,082,01 8 
2955 :084,069,032,068,069,076,025 
2 961 :0 76,065,032,068,073,084,031 
2967 :084,065,032,073,078,032,003 
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3309 : 0 71 ,072,069,082,079,039, 1 37 
3315 :032,085,078,032,080,069,107 
3321 :078,078,089,032,080,069,163 
3327 :0 82,032,079,0 71 , 078,0 73,1 58 
3 333 :0 32,077,069,0 84,0 82,079, 1 72 
3339 :034,000,058,01 3,076,004,1 96 
3345 :1 53,034,081 ,0 85,065,068,247 
3 3 51 :0 82,079,032,068,0 73,032,1 33 
3357 :077,085,082,079,032,068,196 
3363 : 0 73,080,0 73,0 78,084,079,246 
3369 :046,032,077,065,032,083,120 
33 75 :0 69,032,084,085,032,079, 1 72 
33 81 :0 32,071 , 076,073,000,1 02,1 51 

33 87 : 01 3,0 86,004,1 53,034,065,158 
3 3 93 : 0 76,084,0 82,073,032,068, 224 
3 3 99 : 0 73,080,0 73,078,0 71 , 069,003 
3405 :084,069,032,083,079,080,248 
3411 :082,065,032,076,065,032,179 
3417 :086,069,082,078,073,067,032 
3423 :069,032,032,032,032,034,070 

342 9 :000,1 4 6,01 3,096,004,1 53,001 

343 5 : 034,070,082,069,083,0 67,000 
3441 :065,044,032,084,073,032,187 
3447 :076,073,067,069,078,090,060 
3 453 : 0 73,069,0 82,0 79,039,032,243 
3459 :083,085,066,073,084,079,089 
3465 :033,03 3,03 3,033,033,033,079 
3 4 71 :033,034,000,21 4,01 3, 1 06,031 

34 77 :004,1 53,034,01 7,079,082,006 
3483 :065,032,085,083,065,032,005 
3 489 : 0 73,0 76,032,032,0 74,0 79,01 5 
3495 :089,083,084,073,067,075,126 
3 501 :0 32,073,078,032,080,0 79,03 5 
3507 :082,084,065,032,049,032,011 
3513 :069,046,046,034,058,153,079 
3519 :034,070,079,082,090,065,099 
3525 :033,033,033,033,033,033,139 
3531 :034,058,153,034,163,163,040 
3 53 7 :1 63,1 63,1 63,1 63,000,003,096 
3 54 3 :01 4,1 36,004,1 53,03 4,01 7,061 
3 54 9 :01 7,029,029,029,040,080,1 89 
3555 :082,069,077,073,032,070,118 
3561 :085,079,067,079,032,080,143 
3 567 :069,082,032,073,078,073,1 34 
3 573 : 0 90,073,065,082,069,04 6,1 58 
3 579 : 046, 046,046,046,046,041 , 01 0 
3 58 5 : 034,000,030,01 4,1 4 6,004,229 
3 591 : 1 39,040, 1 94,04 0,053,054,01 5 


3 597 : 0 51 , 0 50,04 9,041 , 1 75,04 9, 1 72 
3603 :054,041,179,177,048,167,173 
3 60 9 : 049,049,0 55,048,000,040,01 0 
361 5 :01 4,208,007, 1 58,0 51 , 055,01 2 
3621 : 0 50,052,000,000,000,1 69,0 52 
3627 :147,032,210,255,162,163,244 
3 633 :1 63,1 63,1 63,1 63,1 63,03 4,1 30 
3 63 9 : 000,1 01 , 01 4,1 3 6,004,1 53,20 7 
3 64 5 :034,01 7,017,02 9,02 9,02 9,216 
3 651 : 040,080,082,069, 083,083,248 
3657 :032,084,072,069,032,070,176 
3663 :073,082,069,032,066,085,230 
3669 :084,084,079,078,032,084,014 
3 675 : 0 79,032,0 83,0 84,065,0 82,004 
3 681 : 0 84,041 , 03 4,000,1 2 8,01 4,1 42 

3687 :146,004,139,040,194,040,154 
3693 :053,054,051,050,049,041,151 
3 699 :1 75,049,054,041 , 1 79, 1 77,022 
3 70 5 : 048,1 67,049,049,055, 048,025 
3 71 1 :000,1 38,01 4,208,007,1 58, 1 4 0 
3717 :051,055,050,052,000,000,085 
3 72 3 :000,1 69,1 4 7, 032,21 0,2 55,1 84 
3729 :162,000,169,176,157,223,008 
3 73 5 : 021 , 2 32,224,01 0,20 8,24 8,0 70 
3741 :169,000,1 41,045,022,1 62,1 84 

3 74 7 :000,1 69, 1 76,1 57, 233,021 , 1 51 
3753 :232,224,010,208,248,169,236 
3 759 : 004,1 41 , 04 4,022,23 8,04 5, 1 57 
3765 : 022,169,000,141 , 046,022,069 
3771 :032,056,018,172,045,022,020 
3777 :1 69,253,1 62,1 67,1 92,001,1 1 3 
3783 :240,012,169,250,162,215,223 
3789 :192,002,240,004,169,248,036 
3 795 : 1 62,24 7,1 42,021 , 208,1 62,1 29 
3801 :000,074,062,035,022,232,130 
3807 :224,003,208,247,032,086,255 
3813 :016,032,251,019,169,000,204 
3819 :032,219,255,032,222,255,226 
3825 :201,020,208,249,169,000,064 
3831 :032,21 9,255,032,222,255,238 
3 83 7 : 201 , 000,240,24 9,2 38,041 , 1 98 
3843 :022,169,000,032,219,255,188 
3849 :032,086,016,032,251,019,189 
3 855 : 238,206,021 , 1 73,206,021 , 1 1 2 
3861 :201,008,208,056,169,000,1 51 
386 7 :1 41 , 206,021 , 1 73,046,022,1 24 
3873 :240,019,032,143,021,169,145 
3 87 9 : 000,1 41 ,04 6,02 2,206,044,242 
3885 :022,208,003,076,079,021,198 
3 891 : 0 76,1 82,01 4,032,093,01 7,209 
3897 :032,084,015,032,251,019,234 
3903 :173,035,022,240,013,173,207 
390 9 : 036,022,240,00 8,1 73,03 7,073 
3915 :022,240,003,076,179,014,097 
3 921 : 0 76,250,01 4,1 73,001 , 220,04 7 
3 92 7 :1 62,001 ,0 74,1 44,00 8,232,1 96 
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3933 :224,005,208,248,174,205, 
3939 :021 , 1 38,1 41 , 205,021 , 1 74, 
3945 :202,021,172,204,021,032, 
3951 :001,016,201,160,240,029, 
3957 :056,032,240,255,140,204, 
3963 : 021 , 1 42,202,021 , 032,034, 
3969 : 01 6,1 69,030,032,21 0,255, 
3975 : 1 69,01 8,032,21 0,255, 1 69, 
3981 :032,032,210,255,096,169, 
3987 :003,141,046,022,096,169, 
3993 :006,141,032,208,169,001, 
3999 :141,033,208,169,000,133, 
4005 : 2 51 , 1 33,253,1 69,004,1 33, 
4011 :252,169,216,133,254,162, 
4017 :000,160,000,169,160,072, 
4023 : 1 69,006,072,1 92,000,240, 
4029 :024,192,039,240,020,224, 
4035 :000,240,016,224,001,240, 
4041 :012,224,024,240,008,104, 
4047 : 1 04,1 69,032,072,1 69,001 , 
4053 :072,104,145,253,104,145, 
4059 : 2 51 , 200,1 92,040,208,21 1 , 
4065 :165,251,024,105,040,133, 
4071 : 2 51 , 1 65,252,1 05,000,1 33, 
4077 :252,165,253,024,105,040, 
4083 : 1 33, 253,1 65,254,1 05, 000, 
4089 :1 33, 254,232,224,025,208, 
4095 :178,096,202,201,001,240, 
41 01 : 01 9,232,232,201 , 002,240, 
4107 :013,202,136,201,003,240, 
4113 :007,200,200,201,004,240, 
41 1 9 -.001 , 1 36,024,032,240,255, 
41 25 :1 64,21 1 , 1 77,209,096,1 62, 
4131 :005,254,233,021,189,233, 
41 37 : 021 , 201 , 1 86,208,008,1 69, 
4143 :176,157,233,021,202,208, 
4149 :238,162,000,189,223,021, 
41 55 : 221 , 233,021 , 208,006,232, 
4161 :224,006,208,243,096,016, 
4167 :013,162,000,189,233,021, 
4173 :157,223,021,232,224,006, 
4179 :208,245,096,162,000,169, 
4185 :160,157,243,021,232,224, 
4191 :040,208,248,162,000,189, 
4197 :052,022,157,243,021,232, 
4203 :224,006,208,245,162,000, 
4209 :189,047,022,157,010,022, 
4215 :232,224,011,208,245,162, 
4221 :000,189,234,021,157,249, 
4227 : 021 , 1 89,236,021 , 1 57,252, 
4233 :021,189,224,021,157,021, 
4239 :022,189,226,021,157,024, 
4245 :022,232,224,003,208,227, 
4251 :1 69,1 74,1 41 , 252,021,1 41 , 
4257 :024,022,162,000,189,249, 
4263 : 021 , 201 , 1 76,208,01 0, 1 69, 


4 2 69 :1 60,1 57,249,021 ,232,224,1 92 
42 75 : 003,208,239, 1 62,000,1 89,21 2 
42 81 : 021 , 022,201 , 1 76,208,01 0,0 55 
4 2 87 : 1 69,1 60,1 57,021 ,02 2,2 32,1 84 

42 93 :224,003,208,239,1 62,000,009 
4299 :189,243,021,157,000,004,049 
4 305 : 232,22 4,04 0,208,24 5, 1 74,0 52 
4 31 1 : 044,022,1 69, 247,224,004,1 57 

431 7 : 2 40,01 4,1 69,24 6,224,003,093 

432 3 : 240,008,1 69,244,224,002,090 
4 32 9 : 240,002,1 69,240,045,021 , 1 82 

433 5 : 2 08,1 41 , 021 ,208,096,1 41 , 030 

43 41 : 222,021 , 1 38,072,1 52,072,1 54 

4347 :169,133,032,029,017,173,036 
43 53 :21 9,021 , 1 41 , 207,021 , 1 73,01 5 
4359 :220,021,141,208,021,173,023 
4365 :222,021,024,105,001,032,162 
4371 :029,01 7, 1 04,1 68,1 04,1 70,099 

4377 :173,218,021,096,141,221,127 

43 83 : 021 , 1 62,00 8, 1 69,000,1 41 , 02 0 

4 3 89 :21 8,021 , 1 41 , 21 9,021 , 1 41 , 03 0 
4395 :220,021,014,221,021,144,172 
4401 :027,173,220,021,024,109,111 

4407 :208,021,141,220,021,173,071 
441 3 : 21 9,021 , 1 09,207,021 , 1 41 , 01 1 

441 9 :21 9,021 , 1 73,21 8,021,1 05, 056 

442 5 : 000,1 41 , 21 8,021 , 202,20 8,095 

4431 :001,096,01 4,220,021 , 04 6,221 

4 43 7 :21 9,021 ,04 6,21 8,021,076,1 74 
4443 :045,017,162,000,142,203,148 
444 9 :0 21 , 1 89,03 5,022,240,003,0 95 

44 55 :0 76,1 99,01 7,1 89,21 5,021 , 052 

4 4 61 :072,1 89, 21 2,021 , 1 68,1 89,1 92 
4 4 67 : 209,021 , 1 70,1 04,072,032,21 1 
44 73 : 0 01 ,016,201 ,032,240,034,133 
44 79 :032,21 1 ,01 7, 1 68, 1 04,1 89,0 80 
4485 :063,022,072,192,032,240,242 
4491 :021,173,203,021,141,046,232 
4 4 97 : 022,032,1 43,021 , 1 69,000,02 0 
4503 :141,046,022,104,032,146,130 
4 50 9 : 01 9,076,1 99,01 7,0 56,032,04 4 
4515 :240,255,138,174,203,021,170 
4521 :157,209,021,152,157,212,053 
4 52 7 :021 , 1 04,1 57,21 5,021 , 1 89,1 1 4 
4533 :060,022,032,210,255,169,161 
4539 :018,032,210,255,032,008,230 
4 54 5 : 01 8,1 69,032,032,21 0,255,1 41 
4 551 :1 74,203,021 ,232,224,003,032 

4 557 : 2 40,003,0 76,095,01 7,096,2 20 
4563 :160,000,169,003,032,244,051 
4 569 :01 6,1 70,1 40,02 8,022,1 42,223 
4575 :027,022,189,063,022,072,106 
4581 :174,203,021,189,212,021,025 
4 587 :1 68,1 89,2 09,021 , 1 70,1 04,072 
4593 :032,001,016,201,032,240,251 
4 599 :01 2, 1 74,02 7,022,2 32,1 72,1 1 8 


1 33 

031 

245 

246 

020 

063 

073 

220 

1 67 

1 1 2 

198 

075 

084 

077 

226 

094 

1 60 

1 48 

045 

242 

01 2 

041 

1 75 

1 1 3 

052 

1 29 

045 

1 49 

163 

038 

101 

1 99 

024 

202 

066 

020 

1 1 8 

21 2 

090 

177 

1 72 

195 

102 

1 74 

060 

1 84 

048 

1 77 

207 

239 

002 

01 4 

041 

029 

039 

1 84 


30 SUPERC64® 2/86 



4605 :028,022,200,192,004,208,139 
4 61 1 : 21 5,1 74,02 7,022,096,1 74,1 99 
4 61 7 : 203,021 , 1 89,02 9,022,1 33,094 
4 62 3 : 251 , 1 89,032,022,1 33,2 52,1 26 
4629 :160,000,189,212,021,145,236 
4635 : 2 51 , 1 60,001 , 1 89, 209, 021 , 090 
4 641 : 1 45, 251 , 1 74,203,021 , 1 89, 248 
4647 :029,022,024,105,002,157,122 
4653 :02 9,022,1 89,032,022,1 0 5, 1 88 
4659 :000,157,032,022,096,032,134 
4665 :152,015,169,018,141,202,242 
4671 :021 , 1 69,020,1 41 , 204,021 , 1 27 
4 677 : 1 69,000,1 41 , 206,021 , 1 69,007 
4683 :001,141,205,021,169,006,106 
4689 :141,209,021,141,210,021,056 
4 695 : 1 41 , 21 1 ,021 , 1 69,01 6, 1 41 , 01 8 
4 701 :21 2,021 , 1 69,020,1 41 , 21 3,1 01 
4 70 7 : 021 , 1 69,024,1 41 , 21 4,021 , 1 77 
4713 :169,002,141,215,021,141,026 
4 71 9 : 21 6,021 , 1 41 , 21 7,021 , 1 69,1 28 
4725 :002,141,029,022,141,030,226 
4 731 : 022,1 41 , 031 , 022,1 69,064,060 
4 73 7 : 1 41 , 032,022,1 69,068, 1 41 , 1 90 
4743 :033,022,169,072,141,034,094 
4 74 9 : 022,1 69,000,1 41 ,000,064,02 5 
4755 : 1 41 , 001,064,141,000,068,0 50 
4 761 :1 41 , 001 , 06 8, 1 41 , 000,0 72,064 
4767 :141,001,072,169,000,141,171 
4773 :035,022,141,036,022,141,050 
4 779 : 03 7,022,1 69,000,1 41 , 02 7,055 
4 785 :208, 1 69,255, 1 41 ,02 8,208, 1 62 
4 791 :1 69,000, 1 41 , 02 3,208,1 41 , 097 
4797 :029,208,169,150,141,255,117 
4803 :007,141,248,007,141,249,220 
4809 :007,141,250,007,169,148,155 
4 81 5 :1 41 , 254,007,1 41 , 253,007,242 
4821 :141,252,007,169,178,141,077 
4827 :014,208,141,010,208,169,201 
483 3 :1 85,1 41 , 01 5,208,1 69,0 92,01 1 
4 83 9 :1 41 , 009,208,1 41 ,01 1 , 20 8, 1 81 
4845 :141,013,208,169,146,141,031 
4 851 : 008,208,169,21 0,141 ,012,223 
4857 :208,169,000,141,037,208,244 
4863 :1 69,01 2, 1 41 , 03 8,20 8,1 69,224 
4 86 9 : 005,1 41 , 04 6, 208,1 69,004,066 
4875 :1 41 , 045,208,169,007,141, 210 
4881 :044,208,169,002,141,043,112 

4887 : 208,1 69,048,1 41 , 001 , 208,03 0 
4 893 :1 41 , 003,208,141, 005,208,223 
4 899 : 1 69, 1 38, 1 41 , 000,20 8, 1 69,092 
4905 :158,141,002,208,169,178,129 
4 91 1 :1 41 , 004,208,1 69,00 5, 1 41 , 203 
4917 :039,208,141,040,208,141,062 
4 92 3 : 041 , 208,1 69, 248,1 41 , 02 4,1 22 
4 92 9 : 21 2,169,01 9, 141 ,01 9,21 2,069 
4935 :169,017,141,020,212,169,031 


4 941 : 04 5, 1 41 , 01 4,21 2, 1 41 , 01 5, 1 33 
4 94 7 : 21 2,169, 129, 141, 018,212, 1 96 
4 953 : 1 69, 1 2 8, 1 41 , 01 8,21 2, 1 73,1 62 
4959 :027,212,009,001,141,208,181 
4965 :021,173,027,212,141,207,114 
4 971 : 021 , 1 62,000,189,140,022,129 
4 97 7 : 1 57, 128,034,189,092,023,224 
4983 :157,080,035,189,044,024,136 
4989 :157,032,036,189,252,024,047 
4 995 : 1 57,240,03 6, 1 89,204,02 5,21 4 
5001 : 1 57, 1 92,03 7,232,22 4,208,1 63 
500 7 : 208,221 , 096,1 74,203,021 ,04 2 
5013 :189,029,022,056,233,002,168 
5019 :157,029,022,189,032,022,094 
5025 :233,000,157,032,022,174,011 
5031 : 2 03,021 , 1 89,02 9, 022,1 33,2 52 
50 3 7 : 251 , 1 89,032,022,1 33,252,02 8 
5043 : 1 69,000,032,219,255,032,118 
5049 :222,255,201,001,208,249,041 
50 55 :1 60,001 , 1 77,2 51 , 1 70,1 60,086 
50 61 : 000,1 77,251 , 1 68,1 92,000,21 7 
5067 :208,004,224,000,240,033,144 
50 73 : 024,032,24 0,2 5 5, 1 64,21 1 , 1 1 1 
5079 :169,032,145,209,174,203,123 
5085 :021,189,029,022,056,233,003 

50 91 :002,1 57,029,02 2,1 8 9,032,1 46 
5097 :022,233,000,157,032,022,187 
5103 :076,166,019,174,203,021,130 

51 09 : 1 69,001 , 1 57,03 5,022,096,21 3 
51 1 5 :1 74,202,021 , 1 72,204,021 , 021 
5121 :173,205,021,056,233,001,178 
51 2 7 : 032,202,02 0,1 73,03 8,022,2 38 
5133 :141,015,208,173,039,022,099 
5139 :1 41 ,014,208,173,016,208,011 
51 4 5 :01 0,1 1 0,04 0,02 2,1 06, 1 41 , 1 98 
5151 :016,208,173,041,022,041,020 
51 57 : 0 32,074,074,074,074,0 74,1 83 
5163 : 1 74,205,021 , 202,02 4,1 25,02 6 
51 69 : 071 , 022,1 41 , 255,007, 1 62,1 95 
5175 :000,142,203,021,189,035,133 
51 81 : 022,208,0 97,1 89,21 2,021 , 04 2 
51 87 :1 68,1 89,21 5,021 , 056,2 33,1 81 
51 93 : 001 , 072,1 89,209,021 , 1 70,223 

51 99 :1 04,032,202,02 0, 1 73,203,04 5 
520 5 :021 , 01 0,1 70,1 73,03 8,022,00 7 
5211 :157,009,208,173,039,022,187 
5217 :157,008,208,174,203,021,100 
522 3 : 232,1 69,00 8,01 0,202,208,1 64 
522 9 : 252,1 70,073,255, 045,01 6, 1 52 

52 35 : 208,1 41 ,042,022,1 72,040,228 
52 41 : 022,24 0,004,1 38,01 3,04 2,068 
52 4 7 :022,1 41 ,01 6,208, 1 73,041 , 21 6 
52 53 : 022,041 ,032,074,074,074,1 94 
52 59 : 0 74,0 74,0 72,1 74,203,021 , 24 5 
52 65 : 1 89,21 5,021 , 1 70,202,1 04,02 2 
52 71 : 024,1 25,071 , 02 2,1 74,203,002 
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52 77 :021 , 1 57,252,007, 1 74,203,203 
52 83 : 021 ,232,224,003,208,143,226 

52 89 : 1 73,041 , 022,041 , 031 , 208, 1 73 
5295 :025,169,006,141,024,212,240 
5301 :1 6 9,052,141, 005, 212,169, 161 
5307 :22 0, 1 41 , 001 , 21 2, 1 69, 1 28,03 4 
531 3 :1 41 , 004,21 2,1 69, 1 29, 1 41 , 221 
5319 :004,212,096,141,043,022,205 
5325 :169,000,141,039,022,141,205 
5331 :040,022,141,038,022,138,100 
5337 :174,043,022,010,010,010,230 
5343 :024,125,075,022,141,038,136 
5349 :022,152,024,042,046,040,043 
5355 :022,042,046,040,022,042,193 

53 61 : 046,040,022,1 74,04 3,02 2,076 
5367 :024,125,079,022,141,039,165 
53 73 : 022,1 73,04 0,022, 1 0 5,000,1 03 

53 79 .- 1 41 , 04 0,02 2,1 73,043,022,1 88 
5385 :208,Oli,173,038,022,056,005 
5391 :237,206,021,141,038,022,168 
5397 :096,201,001,208,011,173,199 
5403 :038,022,024,109,206,021,191 

54 0 9 :1 41 , 03 8,022,096,201 , 002,021 
541 5 :208,01 9, 1 73,03 9,02 2,056,044 
54 21 : 237,206,021 , 1 41 ,039,022,1 99 
5427 :173,040,022,233,000,141,148 
5433 :040,022,096,173,039,022,193 
54 3 9 : 02 4,1 09,206,021 , 1 41 , 039,091 
54 45 : 022,1 73,04 0,022,1 0 5,000,1 75 
54 51 : 1 41 , 04 0,022,096,1 60,01 6,03 8 
54 57 : 1 62,01 1 , 02 4,032,2 4 0,2 55,03 7 
5463 :162,000,142,203,021,189,036 
54 69 : 0 83,022,032,21 0,2 55, 1 74,1 01 
54 75 : 203,021 , 232,22 4,01 1 , 208,230 
54 81 : 239,1 60,00 5, 1 62,01 3,02 4,1 96 
54 87 : 032,24 0,2 55, 1 62,000,1 42,1 74 
54 93 : 203,021 , 1 89,094,02 2,032,1 66 
54 99 : 21 0,255, 1 74,203,021 , 232,1 94 
5505 :224,033,208,239,173,001,239 
5511 :220,041,016,208,249,076,177 
5 51 7 : 1 57,01 4,1 69,01 5, 1 41 ,02 4,1 49 
552 3 : 21 2,169,0 58,141, 005,21 2,1 76 

552 9 : 1 69,01 3,1 41 , 001 , 21 2,1 69,0 90 

553 5 :1 28,1 41 , 004,21 2,1 69, 1 29, 1 74 

5541 :1 41 , 004,21 2,1 74,04 6,022,2 52 

554 7 : 1 69, 1 42,1 57,2 52,007,1 69,04 3 

5553 :000,032,219,255,032,222,169 
5 559 : 255,201 , 01 0,208,249,1 74,000 
5565 : 046,022,222,2 52,00 7,1 89, 1 59 
5571 :252,007,201,138,208,231,208 
5577 :096,013,032,020,001,000,107 
5583 : 030,031 , 006,01 2,006,01 6,052 
5589 : 020,024,002,002,002,000,007 
5595 : 21 4,1 1 6,000,003,1 76,1 76,1 36 
5601 :1 76,1 80,1 79, 1 80,1 76,1 76,01 2 

560 7 :1 76,1 76,1 76,1 76,1 76,1 76,00 7 


5613 :178,176,176,176,176,176,015 

561 9 :1 44,1 2 9, 1 53,1 73,1 60,1 64,1 42 

562 5 :1 60,1 60,1 60,1 74,1 78,1 76,233 
5631 :1 60,160,160,160,160,160,191 

563 7 : 1 60,1 60,1 60,1 60,1 60,1 36,1 73 

564 3 :1 37, 1 35, 1 36,1 60,144,1 29,084 

564 9 : 1 53,1 73,1 60,1 64,1 60,1 60,21 9 
5 655 : 1 80,1 74,1 79, 1 80,002,002,228 
5661 :002,01 4,002,064,068,072,251 
5667 : 001 , 000,001 , 1 53,1 77,000,1 1 1 
5673 : 21 3,000,001 , 000,001 , 000,000 
5679 :1 36, 1 3 7, 1 35, 1 36, 1 60,1 44,1 27 
56 85 :129,1 53,1 73,1 60,1 64,1 33,1 97 
5 691 :1 86,02 8,1 58,1 56,001,002,078 

5 697 : 003,004,001 , 002,003,004,082 
5703 :1 49, 1 47, 1 43,1 45, 041 ,050,234 
570 9 : 043,043,01 7,01 7,01 6,024,23 7 
5 71 5 : 1 44,1 46,071 , 065,077,069,1 43 
5721 :032,079,0 86,069,082,1 44,069 
5727 :146,080,082,069,083,083,126 
573 3 :0 32,070,073,082,069,032,203 
573 9 : 0 66,085,0 84,084,079,078,071 

'5 74 5 : 032,084,079,032,080,076,24 0 
5751 : 065,0 89,032,065,071,065,250 
575 7 : 0 73,078,000,000,000,000,02 0 
5763 : 000,000,000,000,0 00,000,1 31 
5769 : 000,000,000,000,000,000,1 37 
5775 :000,000,000,000,000,000,143 
5781 :000,000,000,000,000,000,149 
5787 :000,000,000,000,000,000,155 
5793 : 000,000,000,000,000,000,1 61 
5799 : 000,000,000,000,000,000,1 67 
5805 :000,000,000,000,000,000,173 
5811 :000,000,000,000,000,000,179 
5 81 7 : 000,000,000,000,000,000, 1 85 
582 3 : 000,000,000,000,000,000,1 91 
5829 :000,000,000,000,000,000,197 
5 83 5 : 000,04 8,01 2,000,000,000,007 
5841 : 000,000,000,000,003,2 52,20 8 
5847 :240,015,000,000,048,012,018 
5853 :063,012,192,012,000,000,244 
5859 :195,048,000,000,003,000,217 
5 86 5 : 01 2,1 92,000,000,000,000,1 81 
5871 : 000,04 8,000,003,1 92,04 8,01 8 
587 7 : 048,0 51 ,003,003,060,000,1 54 
5883 : 01 2,000,01 2,04 8,003,243,057 
5889 : 04 8,000,255,1 92,000,000,240 
5895 : 000,000,000,000,2 55,048,054 
5901 : 01 2,000,000,000,000,000,02 5 
5907 :000,000,003,252,240,015,017 
591 3 :002,1 2 8,051 , 1 68,063,01 2,1 93 
5919 :063,012,000,119,227,051,247 
5 92 5 : 21 3,240,007,085,220,205,239 
5931 :21 3,1 27,01 3,21 3,1 24,051 , 01 6 
5937 :125,243,192,215,232,050,082 
594 3 :0 63,003,060,050,1 40,000,1 1 5 
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5949 

: 01 2 ( 

048, 

003, 

243, 

048, 

000, 

1 59 

5955 

: 255, 

1 92, 

000, 

000, 

000, 

000, 

002 

5961 

: 000, 

000, 

255, 

000, 

000, 

000, 

072 

5967 

: 000, 

000, 

000, 

000, 

01 2, 

000, 

091 

5973 

: 000, 

000, 

000, 

000, 

195, 

000, 

024 

5979 

: 01 2, 

01 2, 

01 2, 

000, 

051 , 

1 92, 

1 1 4 

5985 

: 003, 

063, 

048, 

048, 

21 5, 

192, 

1 54 

5991 

: 003, 

123, 

240, 

048, 

254, 

115, 

118 

5997 

: 003, 

239, 

112, 

01 2, 

189, 

1 92, 

088 

6003 

: 003, 

055, 

000, 

000, 

051 , 

048, 

01 6 

6009 

: 000, 

1 92, 

1 92, 

000, 

000, 

000, 

249 

601 5 

: 000, 

000, 

000, 

000, 

000, 

000, 

1 27 

6021 

: 000, 

000, 

000, 

000, 

000, 

000, 

133 

6027 

: 255, 

000, 

000, 

000, 

000, 

000, 

1 38 

6033 

: 000, 

000, 

000, 

000, 

000, 

000, 

145 

6039 

: 000, 

000, 

000, 

000, 

000, 

048, 

1 99 

6045 

: 064, 

000, 

003, 

000, 

003, 

000, 
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6051 

: 000, 

000, 

204, 

064, 
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059, 
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6057 
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000, 
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1 92, 
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059, 
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000, 
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000, 

000, 

000, 
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:1 92, 
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000, 

000, 

000, 

000, 

1 1 7 

6075 

: 000, 

000, 

000, 

000, 

000, 

000, 

1 87 

6081 

:000, 

000, 

000, 

000, 

000, 

000, 

1 93 

6087 

: 000, 

000, 

000, 

000, 

255, 

000, 

1 98 

6093 

: 000, 

000, 

000, 

000, 

,000, 

000, 

205 

6099 

:000, 

,000, 

000, 

000, 

000, 

000, 

21 1 

61 05 

: 000, 

,000, 

000, 

000, 

000, 

000, 

21 7 

61 1 1 

: 000, 

, 000, 

000, 

255, 

, 208, 

000, 

1 74 

61 1 7 

: 255, 

228, 

003, 

255, 

233, 

255, 

1 78 

61 23 

: 2 55, 

, 228, 

255, 

255, 

233, 

003, 

1 84 

61 29 

:255, 

233, 

000, 

255, 

228, 

000, 

1 88 

61 35 

: 2 55, 

217, 

000, 

000, 

004, 

000, 

21 1 

61 41 

: 000, 

001 , 

000, 

000, 

,000, 

000, 

254 

61 47 

: 000, 

000, 

000, 

000, 

,000, 

000, 

003 

61 53 

: 000, 

000, 

255, 

000, 

000, 

000, 

008 

61 59 

: 000, 

000, 

000, 

000, 

000, 

000, 

01 5 

61 65 

: 000, 

,000, 

000, 

000, 

000, 

000, 

021 

61 71 

: 000, 

,000, 

001 , 

000, 

, 000, 

004, 

032 

61 77 

: 000, 

-255, 

217, 

000, 

255, 

228, 

220 

61 83 

: 003, 

,255, 

233, 

255, 

,255, 

233, 

249 

61 89 

: 255, 

r255. 

228, 

003, 

r 255, 

r 233, 

, 250 

61 95 

: 0 0 0 

-255, 

228, 

000, 

,255, 

,208, 

, 229 

6201 

: 000 

,000, 

000, 

000, 

, 000, 

,000, 

,057 

6207 

: 0 0 0 

,000, 

000, 

000, 

,000, 

,000, 

,063 

621 3 

: 000, 

,000, 

000, 

000, 

,000, 

,000, 

, 069 

621 9 

: 255, 

,000, 

000, 

000, 

,000, 

,000, 

,074 

6225 

: 000 

,000, 

000, 

000, 

,000, 

,000, 

,081 

6231 

: 000 

,000, 

000, 

000, 

,000, 

,000, 

, 087 

6237 

: 000 

, 000, 

000, 

000, 

,007, 

r 255, 

,099 

6243 

: 000 

r 027. 

255, 

000, 

,107, 

r 255, 

,231 

6249 

: 1 92, 

,027, 

255, 
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,107 

,255, 

,172 

6255 

: 2 55 

,107, 

255, 

1 92 

,027, 

r 255, 

,178 

6261 

: 000 

,103, 

255, 

000, 

,01 6, 

,000, 

,235 

6267 

: 000 

,064, 

000, 

000, 

,000, 

,000, 

,187 

6273 

: 000 

, 000, 

000, 

000, 

,000 

,000, 

,129 

6279 

: 000, 

, 000, 

000, 

000 

, 255, 

,000, 

,134 


6285 :000,000,000,000,000,000,141 
6291 :000,000,000,000,000,000,147 

62 97 : 000,000,064,000,000,01 6,233 

63 03 .*000,000,103,255,000,027,032 
63 0 9 :2 55, 000,1 07,2 55, 1 92,1 07,0 57 
631 5 : 255,255,027,255,255,1 07,045 
6321 :255, 1 92,027, 2 55,000,00 7, 1 45 
6327 :255,000,000,000,000,000,182 
6333 :000,000,000,000,000,000,189 
63 3 9 :000,000,000,000,000,000,1 95 
6345 :000,000,255,000,000,000,200 
63 51 : 000,01 7,01 6,000,1 02,064,1 50 
63 57 : 000,1 06,064,001 , 1 69,000,041 
6363 :001,169,000,003,255,000,135 
63 69 : 003,2 55,000,003,2 55,000,229 
6375 :003,255,000,003,255,000,235 

63 81 : 003,2 55,000,000,2 52,000,235 
6387 :000,048,000,000,048,000,083 
6393 :000,048,000,000,048,000,089 
6399 :000,048,000,000,048,000,095 
6405 :000,048,000,000,000,000,053 
6411 :255,000,000,000,017,016,043 
6417 :000,006,100,000,006,164,037 
6423 :000,001,169,000,001,169,107 
642 9 *.0 00,003,2 55,000,003,2 55,03 3 

64 3 5 : 000,003,255, 000,003,25 5,03 9 
6441 :000,003,255,000,003,255,045 
644 7 : 000,000,252,000,000,048,091 
6453 :000,000,048,000,000,048,149 
6459 :000,000,048,000,000,048,155 
6465 :000,000,048,000,000,048,161 
6471 :000,000,000,000,255,000,070 
6477 :000,000,000,048,000,000,125 
6483 :048,000,000,048,000,000,179 
6489 :048,000,000,048,000,000,185 
6495 :048,000,000,048,000,000,191 
6501 :252,000,003,255,000,003,102 

650 7 :2 55,000,003,2 55,000,003,1 1 1 

651 3 :2 55,000,003,2 55,000,003,1 1 7 
6519 :255,000,001,169,000,001,033 
6525 :169,000,006,164,000,006,214 
6531 :100,000,017,016,000,000,008 
6537 :000,000,255,000,000,000,136 
6543 :000,048,000,000,048,000,239 
6 54 9 : 000,048,000,000,048,000,245 
6555 :000,048,000,000,048,000,251 
6561 :000,048,000,000,252,000,205 
6567 :003,255,000,003,255,000,171 
6573 :003,255,000,003,255,000,177 
6579 :003,255,000,003,255,000,183 

65 85 : 001 , 1 69,000,001 , 1 69,000,01 3 
6591 .*000,1 06,064,000,1 02,064,01 5 
6597 : 000,01 7,01 6,000,000,000,230 
660 3 : 2 55,000,000,000,000,000,202 
6609 :000,000,255,000,000,255,207 
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di M. Cristuib Grlzzi 




Sri* 




Dopo la pubblicazione ani nume¬ 
ro di Ottobre dello acorao anno 
di “Relfillng System 1.0”. il da¬ 
tabase per sistema a diacbi con 
utilizzo dei file relativi, ci sono 
pervenute molte richieste da 
parte dei lettori per un database 
con le stesse caratteristiche, de¬ 
dicato invece escluaivamente al 
registratore a cassette. 

Con questo programma abbiamo 
cercato di offrire un valido stru¬ 
mento di archivio anche a coloro 
che non posseggono un drive, 
sperando di essere riusciti a rea¬ 
lizzare un database per nastro 
magnetico ugualmente veloce e 
flessibile. 

La filosofia del programma 

L a limitazione posta dall’utilizzo for¬ 
zato del registratore a cassette im¬ 
pone infatti la programmazione del soft¬ 
ware per archivio nella forma sequen¬ 
ziale: il termine “sequenziale", già di 
per sé esemplificativo, indica che i dati 
vengono letti o scritti in sequenza: per 
vedere che cosa contiene il centesimo 
record siamo obbligati a leggere anche 
tutti i precedenti novantanove, anche 
se il loro contenuto non ci interessa. 
Inoltre, se disponiamo di un file con cen¬ 
to record e desideriamo aggiungervi il 
centounesimo, non sarà possibile - come 
avviene per i file relativi su disco - “in¬ 
collare” questo record alla fine del file, 
ma dovremo riscrivere per intero tutto 
il file. 

Risulta evidente che i file sequenziali 
sono molto più lenti dei relativi e se a 
questa lentezza sommiamo quella insita 
nelle operazioni con il registratore a 
cassette, il tempo necessario al tratta¬ 
mento di file mediamente lunghi sale 
notevolmente. 

Fortunatamente esistono particolari 
tecniche, che permettono di ridurre no¬ 
tevolmente il tempo di accesso al singo¬ 
lo record fino a renderlo inferiore a 
quello dei file relativi, anche se il tempo 
globale di accesso al file rimane inevita¬ 
bilmente superiore. 

Queste tecniche consistono nel caricare 


in RAM l'intero file all’inizio delle opera¬ 
zioni, quindi manipolarlo con gran velo¬ 
cità (tutte le operazioni che avvengono 
in RAM hanno una velocità enorme¬ 
mente superiore a qualsiasi operazione 
anche su disco), infine risalvare su na¬ 
stro il file manipolato. I lunghi tempi 
necessari all'iniziale caricamento del file 
e al suo finale salvataggio sono compen¬ 
sati dalla velocità delle operazioni sul 
file, siano esse l’aggiunta di un record, 
la sua ricerca o un ordinamento alfabe¬ 
tico. Il file esistente su nastro viene tra¬ 
sferito nella RAM del computer, all’in¬ 
terno di opportuni vettori dimensionati 
su un valore massimo, che rappresenta 
la capacità del file (massimo numero di 
record). Il contenuto di questi vettori 
può quindi essere alterato e manipolato 
in qualsiasi modo attraverso le opzioni 


del database, aggiungendo, eliminando 
o modificando qualsiasi record. Alla fine 
delle operazioni si potrà perciò risalvare 
il tutto su nastro. 

Poiché, come abbiamo detto, le opera¬ 
zioni più costose in termini di tempo 
sono quelle con l’unità a cassette, risul¬ 
ta assai conveniente caricare il file al¬ 
l’inizio dell’attività - generalmente ai 
mattino - e procedere ai suo salvataggio 
solo alla sera, al termine dell’utilizzo del 
database. Per tutta la giornata lavorati¬ 
va disporremo così di un archivio estre¬ 
mamente veloce e funzionale. 

Utilizzo del programma 

La struttura programma/utente è stata 
mantenuta simile a quella di “Relfiling 
System 1.0”, per agevolare chi deside¬ 
ra utilizzare entrambi i programmi. Al- 



segue a pag. 51 
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GET E INPUT 

Per adoperare un carattere ricevuto con un'istruzione GET 
come carattere per un'istruzione INPUT potete usore que¬ 
sto metodo: 

100 GET A$:IF A$«- THEN 100 
110 IF A$ < > "Ispaziol-THEN POKE 631 ,ASC(A$): POKE 
198,1= INPUT B 

120 PRINT B:B=B+1= GOTO 100 

Il metodo è quello che segue il THEN della riga 110. Nel¬ 
l'esempio, se voi continuate a battere la barra spaziatrice, 
viene stampata una serie di numeri. Se invece inserite un 
numero al posto di spazio, quel numero viene stampato. 
L'esempio non è di alcuna utilità, ma il metodo può essere 
sfruttato in molti modi. 

Multipla scelta con GET 

la routine che segue vi permette di dare la scelta multipla 
con il GET in modo molto breve: 

10 GET A$: J-l: FOR 1-1 T0 4:IF A$-MID$("ABCD\I, 1 ) 
THEN J—1+1 

20 NEXT: ON J GOTO 10,aaa,bbb,ccc,ddd 

Nell'esempio ,aao,bbb,ccc,ddd sono i numeri di riga dove 
volete che il programma prosegua, se vengono premuti 
A,B,C o D. La stringa nell'espressione MID$ può essere 
della lunghezza desiderata. 

11 GET controllato 

Usondo l'istruzione GET, un buon programmatore scriverà: 

10 PRINT “Premi un tosto per continuare" 

20 GET A$: IF A$-"" THEN 20 

Ma un programmatore migliore svuoterà prima il buffer di 
tastiera: 

10 PRINT “Premi un tasto per continuare" 

15 GET AS: IF AÌ> <"" THEN 15 
20 GET A$: IF A$=”" THEN 20 

In questo modo se il tasto verrà premuto in anticipo, sarà 
ignorato. 

Un'alternativa alla riga 15 può essere: 

15 POKE 198,0 

Un numero con GET 

Ecco qui una piccolo routine per evitare di avere dei possi¬ 
bili TYPE MISMATCH ERROR quando avete dei valori nume¬ 
rici in input, usando GET invece di INPUT: 


10 PRINT "Scegli un numero 1-9"; 

20 GET A$= IF A$=“" THEN 20 

30 A=VAL(A$): IF A> 1 OR A<9 THEN 20 
40 PRINT A 

Lo lineo 20 accetta il valore in uno stringa per evitare il 
TYPE MISMATCH, se viene premuto un tosto alfabetico per 
errore, la linea 30 converte il valore stringa in valore 
numerico e controlla se è compreso tra i valori richiesti (1 
e 9 in questo esempio). Questa routine non darà errori e 
accetterà solo ciò che è stato richiesto, inoltre non è neces¬ 
sario la pressione di RETURN. 

Un cursore per il GET 

Uno svontoggio dell'istruzione GET è l'eliminazione del 
cursore nello richiesta dell'input. Ecco qui un modo per 
provvedere a un cursore: 

IC POKE 204,0 

20 GET A$: POKE 207,0: IF A$=“" THEN 20 
30 POKE 204,1: PRINT A$ 

11 comando POKE nella linea 10 e nella linea 20 dice al 
cursore di rimanere visibile in attesa che venga premuto 
un tasto. Nella linea 30 viene eliminato il cursore e viene 
stampato il valore di A$. Assicuratevi di inserire qualche 
valore in A$, anche uno spazio, altrimenti l'immagine del 
cursore potrebbe rimanere sullo schermo. 

Cacciatore di DATA ERROR 

Oltre al modo che già vi ho detto precedentemente, per 
trovare un errore in una sequenza di DATA ne esistono 
altri, come questo: 

PRINT PEEK I63)+256*PEEKI64) 

Battendo queste istruzioni vi sarà dato il numero della linea 
dove risiede l'errore. 

Incoerenza tra READ e DATA 

10 uso questo metodo quando sospetto che l’istruzione 
READ non sia sistemata in modo corretto nei confronti dei 
DATA che deve leggere: 

50 READ A:PRINT A,PEEK(63)+256*PEEK{64) 

Questa linea mostro in che modo vengono letti i DATA e 

11 numero delle linee in cui si trovano. Inserite l’istruzione 
PRINT dopo il READ che volete controllare nel vostro pro¬ 
grammo, e cancellatela a controllo eseguito. Naturalmen¬ 
te, la variabile in PRINT deve essere uguale a quella di 
READ. 
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Quanti byte liberi? 

Per sapere in ogni momento quanti byte occupa un pro¬ 
gramma che risiede in memoria dovete usare l'istruzione 
FRE in questo modo: 

PRINT 3891 1 -(FRE(0)-(FRE(0)(0)*65536) 

Così saprete esattamente la lunghezza del programmo 
BASIC residente in memoria. 

Il codice ASC 

Questo piccolo programma permette di trovare il valore 
ASC di qualsiasi carattere inserito da tastiera: 

1 GET A$: IF A$=- THEN 1 

2 PRINT A$,ASCIASI: GOTO 1 

GOTO niente 

Se dovete risparmiare memoria, ed è importante per voi 
anche un solo byte, in un programma dove un GOTO 
manda all'inizio del programma, cominciate con la linea 
0. In tal modo quando dovrete fare il GOTO per mandare 
all'inizio, sarà sufficiente batterlo senza il numero di linea, 
che così verrà considerato 0. 

VERIFY multiplo 

Il comando VERIFY funziona molto bene in un ciclo FOR... 
NEXT. Se viene trovato qualche errore nella verifica dei 
programmi, il ciclo si ferma e dà un messaggio di errore. 

Facile stampa del listato 

Quando avete bisogno di fare la stampa di un listato, ag¬ 
giungete questa routine di due righe alla fine del vostro 
programma: 

10000 PRINT "Ishift clrl (crsr giù) PRINT #4: CLOSE4lcrsr 
sul" 

10010 OPEN 4,4: CMD4: LIST 

In seguito battendo RUN 10000 e premendo RETURN, 
avrete il listato in stampa. La stampante potrà essere disa¬ 
bilitata alla fine della stampa, semplicemente premendo 
RETURN. 

Caratteri fastidiosi in stampa 

Se avete dei problemi con una stampante non-Commodore 
per la stampa dei caratteri grafici e di quelli in reverse, 
esiste un'alternativa. Sostituite i caratteri che vi danno pro¬ 
blemi nel programma con i loro codici CHR$; ad esempio: 

invece di - PRINT”lclr homel" 

battete - PRINT CHR$(1471. 

ROCKET BALL 

Prodotto da: ISK 
Supporto: cassetta 
Prezzo: L. 30.000 

Divenuto famosissimo grazie all'omonimo film, il Rollerball 
è oggi uno dei simboli della violenza espressa durante una 
competizione sportiva. 

Beninteso, partite di questo sport sono state per ora gioca¬ 
te solo a Hollywood sul set del sopracitato film, perché il 


rischio di incidenti davvero gravi è veramente eccessivo. 
Una riuscitissima riproduzione computerizzata del gioco 
del Rollerball è Rocket ball, capolavoro per movimento, 
effetti sonori e fedeltà all'originale. 

Una volta caricato il programma l'utente deve scegliere 
se giocare contro una persona o contro il computer. Sei 
diversi livelli di difficoltà fanno sì che sia il principiante 
quanto il super-campione possano trovare nella macchina 
un equo avversario. 

Oltre a questo, premendo i tasti funzione è possibile sce¬ 
gliere quale squadro abbinare, tra Madrid, Houston, Tokio 
e Mosca, ai vari contendenti. 

Ultimate queste operazioni ha inizio la partita. 



Armature e pattini a rotelle 

I giocatori delle due squadre ricordano molto, nella grafica 
e nella logica di movimento, gli sprite usati dagli autori del 
famoso "International Soccer", versione C64 dello sport 
più amato del mondo, anche se in Rocket ball questi indos¬ 
sano casco, ormatura e pattini a rotelle. 

Una partita è costituita da due tempi di 20', ma in caso di 
parità vengono concessi altri 90" supplementari. 

Lo scopo del gioco è di segnare il più possibile, durante 
l'arco della partita, nella porta avversaria. 

II gioco inizia con la palla che viene sparata a grande 
velocità sull'arco superiore del campo da destra verso 
sinistra, e tutte le azioni successive si muoveranno in questa 
direzione. 

Il terreno di gioco è un immaginario circuito (immaginario 
perché il movimento avviene in linea retta, ma muovendosi 
in avanti da un punto per un centinaio di metri vi si ritorna) 
su cui si muovono, sospinti dai pattini a rotelle, 12 giocato¬ 
ri, sei per squadra. 

Le due porte sono poste, un po’ distanziate l'una dall'altra, 
sulla parete superiore contornante la pista. 

Dopo ogni segnatura il gioco viene fermato e ripreso anco- 
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ro una volta con la palla “sparata" a grande velocità da 
un cannoncino fuori schermo. 

Cinque più uno 

Come nel sopracitato gioco del calcio, cinque giocatori di 
ogni squadra vengono gestiti dal computer, mentre uno, 
riconoscibile dal colore ai maglia più chiaro, viene mosso 
attraverso il joystick. 

Muovendo il joystick verso sinistra il giocatore acquista 
velocità, muovendolo verso destra questa diminuisce, men¬ 
tre lo spostamento perpendicolare è determinato dal joy¬ 
stick posizionato verso l'alto o verso il basso. 

Per distribuire gomitate a destra e a manca, invece, biso¬ 
gna muovere il joystick nella direzione voluta, ma tenendo 
remuto il pulsante. 

no volta in possesso della palla, questa può venire lan¬ 
ciata verso la porta avversaria, scegliendo il momento 
opportuno e spostando il joystick a destra e con il pulsante 
premuto. 

Per abbassarsi o per saltare, posizioni ideali per colpire 
un avversario senza avere consequenze, bisogna sposta¬ 
re la leva verso il basso o verso l'alto, ancora con il pulsan¬ 
te pigiato. Per entrare in possesso della palla bisogna 
giungere dietro a questa, ma nella sua stessa direzione e 
abbassarsi. 

In una partita di Rocket ball non esistono falli, e l'unica 
interruzione di gioco possibile avviene quando la palla 
esce dal bordo inferiore del campo. 

Correre veloci 

Una volta in possesso della sfera bisogna correre il più 
veloce possibile verso la porta avversaria, cercando di 
evitare gli avversari, che, ovviamente, cercheranno con 
ogni mezzo di bloccare l'azione. 

Un contrasto o una gomitata danno luogo a clamorosi 
capitomboli e scivoloni e perciò uno dura entrata sul gioca¬ 
tore con la palla è il mezzo più efficace per interrompere 
un'azione "nemica". 

A questo scopo chi attacca dovrà fare di tutto per ottenere 
dai compagni di squadra la "copertura'' adatta per farlo 
avanzare il più possibile. 

Se atterrato, il giocatore con la palla ne perde il possesso, 
con evidente vantaggio per i sopraggiungenfi giocatori. 
Finita la partita la squadra vincitrice, sulle note del suo 
inno, raccoglie al centro del campo i meritoti applausi del 
ubblico. 

er poter apprezzare e gustare al meglio questo gioco 
non vi è altra soluzione che... giocarci, dato che grande 
è il divertimento che ne deriva, soprattutto per il fatto di 
avere la piena libertà di compiere dei falli davvero “assas¬ 
sini" ai danni di qualche avversario, senza per questo 
avere problemi legali o di coscienza in seguito. 

MOVIE MAKER 

Prodotto da: Interactive Picture Sy* 

Supporto: disco 

Uno dei campi in cui il computer si è dimostrato di più valido 
aiuto è sicuramente l'animazione grafica. 

Un utilizzo che comunque è sempre stato un privilegio di 
pochi, visti gli altissimi costi delle macchine. 


Ora, anche se ovviamente con risultati limitati, la numerosa 
famiglia dei “Commodoriani” può avere la presunzione di 
realizzare sequenze animate, grazie a Movie Maker, sicu¬ 
ramente una delle realizzazioni più originali e interessanti 
per il C64. 

Con la semplice conoscenza di qualche comando potete 
già ottenere la prima animazione, anche grazie ad alcune 
figure già memorizzate nel disco dati. Per esempio, molto 
carina e la sequenza del cane che corre e picchia contro 
il bidone dei rifiuti. 

Ma per un completo sfruttamento delle caratteristiche di 
Movie Maker bisogna consultare il dettagliato manuale di 
istruzioni. 

A questo proposito, molto utili sono una serie di domande 
e risposte, che vi facilitano nel capirne le caratteristiche 
principali. 

Ma se per conoscere alla perfezione Movie Maker è ne¬ 
cessario un po' di tempo, saranno poi sufficienti meno di 
24 ore per realizzare la prima sequenza animata. 

Quattro sezioni 

Per comporre un “film" sono richieste 4 operazioni fonda- 
mentali. Ad ogni sezione corrisponde un menu principale 
con una serie di opzioni. 

Come saprete, un cartone animato è formato da centinaia 
di disegni, che, visti in successione, creano l’animazione, 
procedura chiamata dagli addetti: “flip". 

Con Movie Maker disegnate e create l'animazione, dupli¬ 
cando i disegni a mezzo del joystick ed alcuni comandi 
sulla tastiera. 

I vari passaggi consistono nel creare delle immagini di 
base. Movie Maker contiene un vero e proprio editore 
grafico, che vi permette di duplicare parti di una figura, di 
muoverle in differenti sezioni dello schermo, di modificarle, 
duplicarle, invertirle e ruotarle. 

Ogni elemento viene immagazzinato in un file. Sono in 
totale sei i file che devono essere “assemblati”: il file per 
le immagini, per il fondo, per l’animazione, per il suono, 
per gli effetti speciali e infine il Movie Maker, file che 
contiene l'animazione finita, pronta per la... proiezione. 
Come detto all'inizio, sono 4 le procedure per arrivare 
alla creazione di un Movie Maker file, e per la precisione 
sono: COMPOSE, RECORD, SMOOTH e PLAY, 
le prime due sono fondamentali per creare le basi del 
vostro lavoro. 

In COMPOSE disegnate le immagini base, inserite i colori 
e combinate le immagini stesse con il fondo. Terminata 
uesta operazione potete salvarle e utilizzarle in un secon- 
o tempo. 

Nella sezione RECORD dovete miscelare e registrare le 
sequenze e le scenografie in un file animato. Potete muo¬ 
vere fino a sei attori, modificare i colori, la velocità e il 
numero di ripetizioni di ogni sequenza. Molte funzioni pos¬ 
sono essere utilizzate da ambedue le procedure e questo 
vi favorisce in un eventuale aggiornamento del lavoro. 
Comunaue, potete disegnare o duplicare le immagini solo 
in COMPOSE e potete aggiungere il suono e registrare un 
file animato solo in RECORD, 
le ultime due parti hano la funzione di editing, 
la sezione SMOOTH pulisce automaticamente le vostre 
sequenze da tremolii e scosse, rendendole lineari e perfet¬ 
te, trasformando il file da Animation in Movie Maker. 

Ora il vostro film è pronto per essere visionato e questo 
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avverrà usando la quarta sezione chiamata PLAY. 

Altre caratteristiche 

Come avrete intuito potete disegnare le forme e i perso¬ 
naggi che volete, creare le scenografie, aggiungere colo¬ 
ri, musica, titoli iniziali e di coda e anche un eventuale testo. 
Ogni animazione può contenere più di 300 immagini. 

È possibile ripetere una sequenza all’infinito oppure, termi¬ 
nato un film, passare subito a un altro, grazie alla funzione 
“autoplay", che è una specie di Loader o programma lan¬ 
cio. 

Il computer tiene in memoria una sezione alla volta e quindi 
bisogna caricarle separatamente. 

Ogni procedura ha un proprio menu per caricare eventuali 
file già memorizzati su disco. 

Per lavorare in COMPOSE e RECORD si usano dei comandi 
che vengono richiamati premendo la lettera corrisponden¬ 
te sulla tastiera. 

Per esempio, con P usate lo penna per poter disegnare 
una figura con il joystick o con D potete duplicare la parte 
voluta. 

Proprio come nella maggior parte dei programmi grafici, 
otete inoltre usare funzioni particolari, come Mirror e 
oom. 


STELLAR 7 

Prodotto da: US.GOLD 
Distribuito da: Giocar 
Supporto: disco o cassetta 

Stellar 7 è un appassionante gioco di fantascienza, che, 
grazie alla sua efficace grafica tridimensionale e a un 
paio di originali idee dei suoi programmatori, riesce a 
catturare e o meritare l'attenzione di chiunque punti gli 
occhi verso il video del computer. 


La trama del gioco è molto semplice: chi gioca si trova al 
comando di un'astronave della non meglio specificata “Fe¬ 
derazione" con il preciso ordine di scovare e distruggere 
il famigerato capo della flotta Arcturan, “Gir Draxon", 
nascosto sul quasi inaccessibile sistema di Acturus. 
Caricato il menu è facoltà dell'utente scegliere se visionare 
i sei migliori punteggi di sempre, vedere la documentazio¬ 
ne top-secret spedita dal quartier generale oppure dare 
inizio al gioco vero e proprio. 

Premendo il tasto “M", si sceglie di accedere alla docu¬ 
mentazione: in essa sono descritte, con disegni mobili e 
dati, le caratteristiche di quelle armi e di auei mezzi a 
disposizione del nemico di cui le varie spie della federazio¬ 
ne sono riuscite ad ottenere informazioni; vengono inoltre 
illustrate le basi di rifornimento e gli spazi-porti che verran¬ 
no utili all'astronave, se in difficoltà o se in procinto di 
cambiare pianeta. 

Dopo queste descrizioni vengono dati alcuni consigli e 
comunicato il testo di una piccola parte di un dispaccio 
nemico partito dal sistema di Deneb e intercettato dalle 
spie federali: "I Guisers sono entrati in funzione. I Terrestri 
non saranno in grado di distinguerli da...". Ben arduo riu¬ 
scire a capire quale oscuro pericolo sia in agguato su 
Deneb, tappa forzata prima di giungere presso l'ambito 
“Gir Draxon": a voi sciogliere il mistero. 

Per ultimo il quartier generale impartisce i vari ordini da 
eseguire. 

Allo spazio-porto 

Premendo il tasto di spazio, incomincia il gioco vero e 
proprio. All'inizio l'astronave si trova a muoversi su un 
pianeta del sistema solare, ma, come anche negli altri 
sistemi stellari, distrutti un certo numero di mezzi nemici si 
può avere accesso allo spazio-porto, con la conseguente 
partenza verso il pianeta successivo. 

Lo schermo del computer è diviso in varie parti: nell'angolo 
superiore destro vi è un utilissimo radar, che rivela la pre- 
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senza di ogni oggetto in un raggio abbastanza ampio, 
che sia roccia, base amica o arma nemica. 

Sulla destra viene rappresentata la situazione energetica 
dell'astronave. 

Ogni qual volta si viene colpiti dai raggi nemici l'energia 
diminuisce, con il rischio che, esaurita quest'ultimo, il gioco 
finisca. 

Sostando in una base di rifornimento, comunque, l'energia 
viene ricaricata totalmente. 

Sulla parte più grande dello schermo è rappresentata la 
visuale di chi comanda l'astronave. 

Con il joystick o attraverso la tastiera si può avanzare, 
indietreggiare e muoversi verso i lati, oltre a poter sparare, 
premendo il pulsante, fino a due colpi per volta. 

In apparenza, questo gioco può sembrare abbastanza 
semplice, ma vi assicuro che anche dopo aver acquisito 
una grande esperienza è veramente arduo avere accesso 
non già all'ultimo sistema stellare, quello decisivo, ma addi¬ 
rittura a quelli precedenti. 


MAKE MUSIC WITH 
MISTERTRONIC 

Prodotto da: Mastertronic 
Supporto: cassetta 
Prezzo: L. 9.000 

In passato il software musicale per il C64 ha sempre avuto 
la pessima caratteristica di essere costoso, macchinoso e 
poco comprensibile per la stragrande maggioranza degli 
utilizzatori di home computer. 

Il SID, purtroppo, è difficilmente utilizzabile via BASIC e le 
uniche chance sono offerte dalle espansioni di linguaggio. 
Tutto ciò ha contribuito a creare una certa diffidenza intor¬ 
no alle capacitò sonore del 6581, capacità che venivano 
da molti confinate a semplice contorno delle performance 
rafiche e d'animazione. Finalmente le migliori case di soft 
anno deciso di impegnarsi in questo campo, producendo 
programmi musicali di valore, capaci di sfruttare pienamen¬ 
te le possibilità sonore senza essere noiosi e complicati. 
Sono programmi divertenti, che sfruttano la grafica e l'ani¬ 
mazione come contorno alla programmazione sonora e 
che hanno un prezzo molto interessante. Questo è di vali¬ 
do aiuto per la divulgazione e l'informazione di questa 
capacità del C64 che finora è stata un po' troppo trascu¬ 
rata. 

Non tutti i programmi sono destinati a un uso semi profes¬ 
sionale, e non per questo devono essere considerati mino¬ 
ri; software pubblicizzoto come professionale a volte si 
rivela una delusione. Ma può accadere anche il contrario. 
Il programma della Mastertronic dichiara esplicitamente di 
essere rivolto ai bambini, ma non sarebbe sbagliato ag¬ 
giungere che un programma di questo tipo può essere utile 
a tutti coloro che si accostano per la prima volta all'espe¬ 
rienza musicale e cercano dal calcolatore delle piccole 
soddisfazioni immediate. La semplicità d'uso e il prezzo 
contenuto sono le vere peculiarità di questo programma. 

5 strumenti 

la sintesi sonora avviene in monofonia; i suoni utilizzabili 
sono già presettati e sono; tromba, piano, chitarra, flauto 


e trombone. 

Nella parte compositiva abbiamo a disposizione sette pa- 
ine musicali successive, ognuna delle quali è composta 
a quattro battute da 4/4; le note o le pause vengono 
scelte e sistemate sul rigo musicale in modo chiaro e veloce 
con l'uso del joystick o dei tasti cursore, operazione che 
si rivela subito pratica e immediata, grazie anche a una 
buona grafica di contorno. 

La misura delle note disponibili varia da 1/8 a 6/4, essen¬ 
doci anche le note con il valore aumentato della metà dal 
punto,- le pause disponibili sono 4 e la loro misura varia 
da 1/8 a 4/4. 

La scrittura è correggibile solo cancellando all'indietro dal¬ 
l'ultima operazione eseguita; l’accesso alle pagine è esclu¬ 
sivamente sequenziale. 1 brani composti possono venir sal¬ 
vati su cassetta ed è anche possibile stampare le pagine 
musicali su corta. 

Conclusioni 

Il programma ha diversi limiti, come la monofonia o la 
mancanza di controlli per la sintesi, ma queste caratteristi¬ 
che si rivelano un pregio per molti utilizzatori, soprattutto 
per chi la musica non la conosce bene e verrebbe sicura¬ 
mente distratto dagli annosi problemi della sintesi sonoro. 
In più il sequencer step by step è semplicissimo da pro¬ 
grammare e permette ai creare rapidamente una melodia. 



SOFTWARE SCOLASTICO 

Dopo aver prodotto e distribuito giochi di successo, la 
Mastertronic distribuisce alcuni programmi scolastici. 

Si tratta di un'elegante confezione contenente 10 pro- 
rammi con relativo manuale. Le materie trattate sonoton- 
amentali, come Italiano, Fisica, Inglese, Matematica, Sto¬ 
ria (3 volumi) e Geografia. 

Inutile dire che l'utilizzo di questo software può rendervi 
meno pesante lo studio e facilitarvi il ripasso delle materie. 
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FOURTH PROTOCOL 

Prodotto da: HCP 
Supporto: disco o cassetta 
Prezzo: l. 45.000 

Un complotto del KGB prevede l'introduzione in Inghilterra 
di un ordigno nucleare con lo scopo di distruggere una 
città inglese e di attribuire la colpo a una vicino base della 
NATO. 

Secondo il progetto sovietico, questo cataclisma dovrebbe 
scatenare l'opinione pubblica contro l'Alleanza Occiden¬ 
tale e forla avvicinare e cadere tra le braccio di quella 
Orientale. 

Per realizzare il loro piano le spie che vengono dal freddo 
devono violare il Quarto Protocollo, il documento in cui le 
Grandi Potenze si impegnano a non utilizzare le loro armi 
nucleari per gettare nel caos i regimi politici. Questo è lo 
tramo del libro di Frederick Forsyth Fourth Protocol (Quarto 
Protocollo) ed è anche la vostra avventura in questo gioco 
realizzato dalla Hutchinson Computer Publishing. 

Tre giochi 

Nei panni di John Preston, il nuovo capo dell'ufficio C1 (A), 
uno sottosezione dell'MI5 (il controspionaggio britanni¬ 
co), dovrete occuparvi della sicurezza militare del paese 
(lo Gran Bretagna! God Save The Queen) e in particolar 
modo dovrete sventare il complotto sovietico. 

Doto lo complessità della vicenda in cui dovrete addentrar¬ 
vi, il gioco è stato diviso in tre porti, ovvero: i documenti 
NATO (thè Noto documents), la Bomba (thè bombi e l'At¬ 
tacco delle Squadre d'Assalto Speciali (thè SAS Assault). 
Ognuno di queste parti è un programma che si carico 
indipendentemente dalle oltre, ma ricordatevi che se vole¬ 
te passare alla seconda o terza parte, dovete aver conclu¬ 
so il gioco precedente. : 

Questa concatenazione è permesso grazie all'utilizzo di 
codici che vengono forniti solo al termine di una fase di gio¬ 
co. 

Vediamo oro, come se fossero dei giochi separati, i tre 
progrommi. 

I documenti NATO 

Lo prima parte è un gioco di avventuro/strategia, che utiliz¬ 
zo, per impartire i comandi o le scelte d'azione, il più 
moderno metodo di controllo che possa essere offerto per 
un personal computer, ovvero il sistema ad icone (quello 
stile Macintosh, per intenderci). Lo scopo di questo gioco 
è auello di scoprire la spia che, infiltratasi nei servizi segre¬ 
ti, no permesso lo fuga di alcuni importantissimi documenti 
della NATO. 

In questo programma vi trovate nel vostro ufficio e tutte le 
operazioni che potete svolgere, visualizzate intorno al di¬ 
segno di un computer, sono rappresentate dai seguenti 
simboli: il telefono, per ricevere e fare telefonate,- l’archi¬ 
vio, per leggere o cancellare dei dati o dei rapporti memo¬ 
rizzati; la cinepresa, per assegnare o togliere delle spie 
a un personaggio sospetto,- una cassetta magnètica, per 
salvare la partita o per caricarne una iniziata precedente- 
mente; un grafico, per conoscere il punteggio e il progres¬ 
so a cui si è arrivati nella risoluzione di questa tose di 
gioco,- un calendario, che serve per avanzare la data. 

Gli ultimi tre simboli che rimangono, nello parte bassa dello 


schermo, sono tre piccoli terminali, che rappresentano i 
tre differenti tipi di contatti che potete avere con il mondo 
esterno: il primo terminale visualizza i rapporti che vi ven¬ 
gono inviati dalle spie che avete sguinzagliato, il secondo 
mostra i rapporti del auartier generale dell'Ml 5 e l'ultimo 
invece vi permetterà ai leggere i messaggi che vi inviano 
i vostri colleghi o i vostri superiori. 

la scelta di una di queste icone avviene attraverso l'uso 
di una mano elettronica che potete spostare, in senso 
orario o antiorario, premendo semplicemente il pulsante 
di fuoco del joystick oppure con la tastiera, premendo la 
barra e i tasti cursori. 

Per confermare invece una vostra scelta basterà che pre¬ 
miate RETURN, dopo aver puntato l'icona desiderata. In 
molti casi ciò comporta l'accesso a dei sotto menu. 

Ad esempio, il sottomenu del telefono permette di telefo¬ 
nare, scegliendo successivamente il simbolo del telefona¬ 
re, mentre per rispondere occorre selezionare quello della 
cornetta utilizzata per rispondere. In questo sotto menu 
c'è anche l'opzione per attivare una segreteria telefonica, 
che memorizzerà tutti i messaggi sino al momento in cui 
deciderete di leggerli. 



La bomba 

Nella seconda parte de “Il Quarto Protocollo", dopo aver 
scoperto la spia ed essere venuti a conoscenza dell'intrigo 
del KGB, dovrete iniziare lo ricerca del luogo in cui è 
nascosto l'ordigno nucleare. Sempre nei panni di John 
Preston dovrete lasciare il vostro ufficio per trovare degli 
indizi che vi diano la possibilità di determinare esattamente 
l'ubicazione del luogo che i russi hanno prescelto come na¬ 
scondiglio. 

In questa situazione di gioco il video è simile a quello de 
“1 Documenti NATO”, eoe strutturato nel seguente modo: 
(partendo dall'alto a sinistra) 


42 SUPERC64® 2/86 






















a) percentuale di risoluzione del gioco. Questo icona è 
identico a quello della parte precedente, eccetto il presti- 
io che non viene più indicato, essendo inutile. 

I uso di oggetti (simbolo della mano che prende un cubo). 
Permette l'accesso a un sottomenu con le seguenti opzioni: 

b. 1 ) prendere un oggetto, 

b.2) sbarazzarsi di un oggetto, 

b.3) usare un oggetto che si possiede, 

b. 4) ritornare al menu principale. 

c) comunicazioni. 

La scelta di questo icono permette di: 

c. 1 ) parlare o aualcuno, 

c.2) usare un telefono, 

c. 3) tornare al menu principale. 

d) movimento. 

Questo simbolo delle quattro frecce offre la possibilità di 
spostarsi per iniziare la ricerca dello bombo. 

Le sotto opzioni selezionabili sono: 

d. l) prendere una direzione, 

d.2) prendere un mezzo come un taxi, entrare e uscire do 

un negozio e così via, 

d.3) tornare al menu principale. 

Le ultime icone che rimangono sullo schermo sono quelle 
dell'Attesa (il simbolo di una clessidra), quello del Guarda¬ 
re l'Ambiente Circostante (l’occhio) e per ultima l'icona 
delle Utility che, come ne “I Documenti NATO", permette 
di salvare o coricare delle partite. 

Per quanto riguardo l'opzione Guardare, questa vi con¬ 
sente di: guardarvi intorno, esaminare un oggetto che si 
trovo nello stanza o che è in vostro possesso, oppure di 
fare l'inventario di ciò che state trasportando. 

Potrete capire che in questo gioco siamo molto vicini alla 
struttura del classico adventure, in cui bisogna muoversi 
facendo attenzione o tutto quello che si incontra. L'unica 
differenza è che in Quarto Protocollo tutto è molto più 
veloce e pratico, grazie all’uso delle icone. 

Attacco delle Squadre d’Assalto Speciali 

Dopo aver scoperto dove è nascosta la bombo fate quindi 
irruzione nel palazzo in cui si trovo. 

Dovete cercare di neutralizzare l'ordigno nucleare usando 
le informazioni avute nei due giochi precedenti. 

Mentre effettuate questa delicatissima operazione, intorno 
o voi infurio la battaglio tra le vostre truppe speciali e gli 
agenti del KGB ; se qualche agente nemico vi scoprisse, 
sarete costretti a difendervi con lo pistola d'ordinanza a 
vostra disposizione. 

Per il movimento dello pistola si utilizza il joystick, mentre 
per sparare premete il pulsante FIRE. 

Per quanto riguarda il disinnesco della bombo dovrete 
fornire le istruzioni nella forma VERBO, VERBO-NOME op- 
ure VERBO-AGGETTIVO-SOSTANTIVO, come "open ca¬ 
rnet” (aprire l'armadietto) o "destroy geiger counter" (di¬ 
struggi il contatore geiger). Quando eseguite queste istru¬ 
zioni fate molta attenzione, perché altrimenti: BOOM. 

Consigli pratici 

L'unico, ma essenziale, consiglio che possiamo darvi è il 
nome di un file che contiene dei numeri di telefono. Con 
questi numeri potrete collegarvi a un calcolatore che man¬ 
tiene memorizzati dei dati essenziali per concludere la 
primo parte del gioco. Il nome è TELEPHONE e il numero 
che dovete chiamare è quello di Blenheim. 


Se farete questa chiomato, vi verrà chiesto uno password 
che potrete avere decodificando i numeri che vi vengono 
forniti all'inizio del gioco con le apposite tavole che sono 
incluse nella confezione. BUONA FORTUNA! 

Conclusioni 

Fourth Protocol ha l'ottima presentazione di essere ispirato 
dal best/sellers di Forsyth. Ma a volte non è sufficiente un 
buon spunto per realizzare un bel gioco. In questo caso 
invece ci troviamo di fronte a un programma veramente 
innovativo per concezione e strutturo. Sfruttando l'espe¬ 
rienza dei computer più potenti, si è usato il linguaggio 
diretto delle icone, rendendo così ulteriormente appassio¬ 
nante un'avventura già ''condita'' con un clima ai guerra 
fredda, e di caccio alle spie, che non smette mai di affasci¬ 
nare. 



WINTER GAMES 

Prodotto da: Epyx 
Supporto: disco 
Prezzo: L. 50.000 

Dopo il meritato successo dei favolosi Summer Games I e 
II, lo Epyx ha prodotto una nuova serie di simulazione 
sportiva, ambientato non più nella calda Los Angeles, ma 
in Canada, a Calgary, in uno stupendo contorno di monta¬ 
gne e piste innevate. 

Winter Games riprendono lo logica sportivo dei giochi 
estivi e offrono, con una grafico meravigliosa, uno serie 
di competizioni avvincenti ed entusiasmanti. 

I preliminari 

Le specialità invernali sono sette: Hot dog. Biathlon, Patti¬ 
naggio figurato, Salto dal trampolino. Pattinaggio libero. 
Pattinaggio di velocità e Bob a due. 
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Le opzioni di gioco sono strutturate come nei Summer Ga- 
mes; possiamo fare pratica con una specialità e gareggia¬ 
re a scelta in una, più di una o tutte le discipline. Possono 
giocare fino a otto giocatori, scegliendo tra 18 nozioni e 
rispettivi inni nazionali. 

Selezionando il numero di joystick, si può gareggiare sio 
contro il computer che in scontro diretto contro un avversa¬ 
rio, come per esempio nel pattinaggio di velocità. 

La cerimonia di apertura si svolge in un suggestivo panora¬ 
ma di montagne innevate, con l'ormai classico volo di co¬ 
lombe all'accensione della fiamma olimpico do, parte del 
tedoforo, in perfetto abbigliamento invernale. È presente 
la tabella dei record mondiali, con nome e nazionalità, le 
premiazioni dopo ogni specialità, lo classifica parziale del 
medagliere e la premiazione finale del vincitore assoluto. 
Ma vediamo nel dettaglio le sette discipline. 

Hot dog 

Una specialità tipicamente americana come il salto acro¬ 
batico non poteva certamente mancare in questo raccolta 
di sport invernali. La gora si svolge all'aperto, su di un 
dirupo innevato, di fronte o una vasta platea di pubblico. 
Una giurio internazionale giudicherà la difficoltà e lo classe 
del vostro salto con un punteggio da 0 a 10. Si possono 
fare 3 tentativi allo ricerca del punteggio migliore. Con il 
pulsante iniziate la discesa, lo stacco dalla cunetta è auto¬ 
matico e una volta in aria si effettuano le figure acrobati¬ 
che. 

Le figure si azionano con la leva del joystick e sono 6: 1 
"Dafty" (alto-sinistra) si compie un salto con le gambe in 
spaccata laterale e le broccia a volo d'angelo. 2 "Back 
Flip" (sinistra) si ottiene un salto mortole aH'indietro. 3 "Mu¬ 
le Kick" (sinistra-basso) si alzano le code degli sci, piegan¬ 
do le ginocchia fino a farli stare quasi paralleli al corpo, 
con le braccia completamente aperte. 4 “Swon" (bosso¬ 
destra) con questo salto, oltre ad alzare le code degli sci, 
ci si sbilancia in avanti con tutto il corpo. 5 “Forward Flip" 
(destra) si ottiene un salto mortale in avanti. 6 "Back 
Scratch" (alto-destra) come il 3, ma con le braccia slancia¬ 
te indietro. I salti mortali possono essere ripetuti, mante¬ 
nendo la posizione della leva, mentre i salti che danno più 
punti sono quelli composti da 2 figure, che ne danno 10; 
le figure composte comprendono anche un salto mortale. 
Qualsiasi figura deve essere ben eseguita, pena un abbas¬ 
samento del punteggio totale. 

Biathlon 

Nella cornice suggestivo di un bosco innevato, e con un 
dolce rumore di sottofondo prodotto dallo scrosciare di 
una cascatella, iniziamo la seconda disciplino. 

Questa specialità militare è una prova combinata di fondo 
e tiro, che si svolge normalmente su di un tracciato di 20 
km, nella quale durante il percorso si devono effettuare 
venti tiri al bersaglio in quattro serie da cinque, la EPYX 
ha riprodotto fedelmente questo sport, riducendo sola¬ 
mente il chilometraggio e di conseguenza il tempo di gio¬ 
co. 

I comandi per lo sci sono semplici, ma richiedono calma e 
coordinazione; la leva dei joystick spostata o destra e a 
sinistra simula lo spinto delle racchette alternote: questo 
comando vale sul piano o in salita, in discesa invece, spo¬ 
stando lo levo verso il basso, si dà una doppia spinta con 
entrambi i bastoncini. 



Nel poligono la leva serve per aprire il fucile (basso), 
caricarlo (alto) e il pulsante per sparore al momento giusto. 
Il mirino infotti è già posizionato sull'asse verticale del 
bersaglio, ma oscilla vistosamente a seconda della fatica: 
più si è affannati, più aumenta il battito del cuore (rappre¬ 
sentalo sul bordo dello schermo mentre pulsa), e quindi la 
lucidità nello sparare diminuisce. 

Per ogni bersaglio fallito ci sono 5 secondi di penalità. 
Vince chi effettua il percorso nel minor tempo totale. 

I quadri di ozione sono 4 : il piano, la disceso, lo salita e 
il poligono, la grafica dei quadri è superba e l'animazione 
e i comandi dello sciatore sono realistici; è infatti completo- 
mente inutile muovere freneticamente il joystick, perché lo 
sciatore rimarrebbe quasi fermo, ma bisogna prendere il 
ritmo dello sciato, tenendo conto dell'affaticamento e del¬ 
la successiva difficoltà di tiro. 

Pattinaggio figurato 

Nell'interno di un gremito palazzo del ghiaccio la pattina- 
trice si preparo a danzare a tempo di musico. 

II giudizio è affidato a una giuria internazionale, che giudi¬ 
ca l'esecuzione e lo difficoltà dei sette movimenti obbliga¬ 
tori. La ballerina può pattinare in ovanti e aH'indietro,- per 
invertire il senso di pattinaggio si preme il pulsante e si 

E orto il joystick nella direzione voluta. Anche per effettuare 
i figure si porta la levo nello posizione desiderata e si 
preme il pulsante: in avanti si effettua il doppio salto axel 
(alto-destro) e il triplo salto axel (basso-destro); aH'indietro 
invece: carnei spin (alto), sit spin (bosso), doppio salto lutz 
(alto-sinistro), triplo salto lutz (basso-sinistra). Un'ultimo fi¬ 
guro obbligatoria è il passaggio immediofo do carnei o sit 
spin. 

Per non avere penalità, oltre a non cadere, bisogna effet¬ 
tuare le figure in un preciso momento della pattinata: an¬ 
dando ovanti si salta quando le gambe sono divaricate al 
massimo, indietro invece solo quando sono unite. Quando 
si effettuo una figura spin (avvitamento) bisogno rialzarsi 
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al sesto avvitamento, altrimenti viene applicato una penali¬ 
tà. 

La gara dura un minuto e bisogna eseguire tutte le figure 
obbligatorie. Il punteggio massimo raggiungibile è o, le 
penalità sono 0.7 per ogni caduta e 0.2 per ogni movimen¬ 
to sgraziato. 

Salto dal trampolino 

Il salto dal trampolino è una delle specialità più difficili, ma 
anche più avvincenti. I quadri sono due, raffiguranti lo 
stocco e l'atterraggio. Nel primo vediamo il trampolino di 
lancio in campo lungo; con il pulsante inizia la discesa e 



premendolo di nuovo decidiamo lo stacco. Passati al se¬ 
condo quadro vediamo in primo piano il punto di atterrag¬ 
gio, con tutta la pista di frenata e il pubblico, e in un piccolo 
riauadro in alto a destra, come in una ripresa televisiva, il 
saltatore in volo in primo piano. 

Dopo alcuni secondi lo vediamo comparire sulla pista per 
l'atterraggio, sempre con il suo ingrandimento nel riqua¬ 
dro,- se tutto è andato bene, l'atterraggio sarà perfetto. 

I comandi per la posizione in volo sono abbastanza difficili 
da manovrare,- il joystick manovra il punto d'equilibrio del 
bacino ed è facilissimo sbilanciarsi e divaricare gli sci. 
Spostando la leva verso sinistra, allontanate il busto dagli 
sci, verso destra lo si avvicina e invece muovendola verso 
il basso si piegano le ginocchia e si raddrizzano gli sci. 
La tecnica migliore per atterrare felicemente è quella di 
sdraiarsi quasi completamente in avanti sugli sci, allonta¬ 
nando il busto di circa 35 gradi poco prima dell'atterrag- 

io: avremo la migliore distanza e classe nell’atterraggio, 
punteggio è la somma tra la distanza ottenuta e la media 
tra lo stile di volo e l'esecuzione dell'atterraggio. 

Pattinaggio di velocità 

La gara di pattinaggio si svolge sulla distanza di 250 metri 
e può essere corsa contro il computer oppure contro un av¬ 
versario. 

Lo schermo viene diviso in due parti principali: nella metà 
inferiore dello schermo il soggetto di ripresa è il nostro 
pattinatore con a fianco l'avversario, mentre nella parte 
superiore il soggetto è il pattinatore avversario. La velocità 
di ogni concorrente è visualizzata con una barra posta 
sotto il rispettivo schermo di ripresa. 

II joystick comanda la velocità e la spinta dei pattini. Muo¬ 
vendolo velocemente, si ottiene una corto estensione della 

amba, utile per la partenza. Durante la gara di velocità 
isogna calibrare l'affondo con movimenti ben coordinati 
e tenere così il valore della barra sempre al massimo. 
Inoltre, quando si è al massimo della spinta è importante 
non rompere il ritmo con bruschi movimenti. 

Pattinaggio libero 

In questa versione di pattinaggio artistico le figure sono 
libere,- in due minuti di tempo si possono fare tre tentativi 
per ognuna delle sette figure richieste, un quarto tentativo 
ai una figura non viene conteggiato e non ci sono penalità 
er chi non completa tutte le figure, 
massimo punteggio è 6, ma il totale delle serie di figure 
complete è 6.9, così da permettere un margine di errore 
di 0.9 punti. Le penalità sono per la caduta di 0.5 punti e 
per la figura scomposta 0.2 punti. 

Il bob 

Il bob a 2 è sempre stato uno sport pericoloso e allo stesso 
tempo spettacolare. A velocità superiori ai 150 km/h si 
scende lungo un cunicolo di ghiaccio in forte pendenza. 
Winter Games riesce a rendere l'effetto della velocità, 
anche se tutto sommato la disciplina non è molto impegna¬ 
tiva. 

Il punto di vista è quello del secondo pilota, il cui compito 
è vincere la forza centrifuga con il peso del proprio corpo 
per non ribaltare lo slittino, spostando il joystick tempesti¬ 
vamente nello direzione della curva. 

La pisto è composta da otto curve paraboliche ed è visua¬ 
lizzata dall'alto e nella parte superiore dello schermo, 
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Nel lungo elenco moncovo proprio lo possibilità di pilotare 
un elicottero e questa lacuna non poteva sfuggire o quelle 
vecchie volpi, anzi “falchi", della US GOLD. 




Il gioco 

L'elicottero che dovete pilotare non è certamente un nor¬ 
male velivolo da turismo, ma un sofisticato apparecchio 
dototo di un sistema di controllo elettronico guidato da un 
computer. 

Grazie o questo sistema, avete tutte le informazioni utili, 
dalle condizioni atmosferiche alle coordinate, per raggiun¬ 
gere la base, oltre a una estrema facilità in tutti i comandi. 
Inoltre l'elicottero è molto più maneggevole e facile da 
usare, soprattutto in operazioni come l'atterraggio e il 
decollo. L'UH-IX ha un molteplice utilizzo sia in tempo di 

E iace che di guerra. 

a US GOLD, realizzatrice di giochi come Beach Head e 
Raid over Moscow, per tenere fede alla sua fama non si 
è limitata a creare un semplice simulatore didattico. Super 
Huey infatti è una vera e propria missione, anzi quattro 
differenti missioni. 


aiutandovi così a prevedere gli spostamenti. 

Inizialmente per restare in pista è consigliabile anticipare 
la direzione delle curve con il joystick, mo una volta imprati¬ 
chiti per effettuare prestazioni record bisogna buttarsi sen¬ 
za frenare, bilanciando la spinta delle curve solo all'ultimo 
momento. 

Conclusioni 

La grafica eccezionale è una norma per i giochi sportivi 
della EPYX, ma in ogni caso stupisce sempre per la sua 
fantasia e perfezione. Tutti i giocni hanno delle animazioni 
perfette e realistiche e permettono un uso razionale del 
joystick. 

Però l'insieme del gioco non suscita il coinvolgimento e 
l'entusiasmo dei Summer Games. Le cause principali sono 
a mio parere due: la prima è forse l'esistenza di un tetto 
di punteggio difficilmente superabile, come ad esempio 
nell'hot dog, nel pattinaggio e anche nel bob, giochi che 
si imparano facilmente e dopo un po' diventano noiosi. 
Un'altra causa sembra essere lo somiglianza del sistema 
di gioco a quello dei Summer Games: provate a confronta¬ 
re, ^e potete, il pattinaggio di velocità con il canottaggio 
dei giochi estivi. 


SUPER HUEY 

Prodotto da: US GOLD 
Distribuito da: Giucar 
Supporto: cassetta 
Prezzo: L. 30.000 

Ormai i simulatori di volo sono sempre più numerosi e 
grazie ai vari programmi si può avere l'ebbrezza di pilota¬ 
re dal semplice aereo da turismo al sofisticato F-15 o, in 
vena di revival, qualche aereo della seconda guerra mon¬ 
diale. 


Quattro giochi in uno 

Il programma contiene quattro giochi, due per ogni faccia¬ 
ta della cassetta. 

Flight Instruction è il primo programma e il più semplice. 

In questo coso il computer vi aiuta in tutte le operazioni, 
dall'accensione al decollo, all’atterraggio, 
la seconda missione si chiama Exploration. 

In questo caso immaginate di lavorare per il genio civile e 
di dover tracciare una mappa di un territorio sconosciuto. 
Perlustrando le varie località dovete raccogliere informa¬ 
zioni su: strutturo del terreno, caratteristiche geologiche, 
riserve d'acqua e scoprire eventuali abitati. 

Rescue e Combat sono gli ultimi due giochi ed hanno ambe¬ 
due uno sfondo militare. 

Nel primo dovete recuperare dei militari che sono rimasti 
bloccati in uno regione montuosa ed irraggiungibile con le 
strade. Localizzate i messaggi di aiuto dei dispersi e volate 
in loro soccorso. L'elicottero può trasportare un massimo 
di due passeggeri. 

Combat è sicuramente la parte più impegnativa, visto che 
dovrete affrontare una missione che già gli elicotteri omeri- 
cani non riuscirono a completare qualche anno fa. 

Forse non ci sono ostaggi da salvare, ma comunque dove¬ 
te volare, localizzare con il radar (tra numerose installazio¬ 
ni) una fortezza segreta situata nel deserto e attaccata 
da forze nemiche. 

Una volta raggiunta dovete difenderla dagli attacchi nemi¬ 
ci portati via terra e via aria. 

Conclusioni 

La grafico di Super Huey è veramente valida, con un ottimo 
effetto di movimento e una definizione tridimensionale del 
paesaggio sorvolato. 

Riuscire a volare sarà meno impegnativo rispetto ad altri 
programmi del genere, anche perché l'elicottero, come 
già detto prima, è molto più maneggevole e facile da 
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pilotare soprattutto nell’atterraggio e nel decollo. 

Trovare quattro diversi giochi in uno è sicuramente una 
piacevole sorpresa, che sfrutto a pieno la versatilità del¬ 
l'elicottero che tra l'altro è uno delle caratteristiche fondo- 
mentoli del mezzo. 
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ABBONATI A 
SUPERCOMMODORE C64 
NESSUNO LA SUPERA 


Vuoi ricevere a casa ogni mese le ultime novità 
software che riguardano il tuo amato computer? 
Abbonarsi a SUPERCOMMODORE C64 è il modo 
più sicuro e conveniente: puoi risparmiare il 20% 
rispetto a quello che spenderesti in edicola e 
puoi scegliere tra due formule di abbonamento. 

La formula "solo rivista" oppure la formula "rivista 
più cassetta", che ti evita di digitare i lunghi listati 
che servono per far "girare" i programmi pubblicati. 


Abbonarsi a SUPERCOMMODORE C64 
è sicuro e conveniente. 

Il tuo computer ti ringrazierà. 


Scegli la formula 
di abbonamento che preferisci 
e spedisci subito il tagliando di 
abbonamento alla tua 
Super rivista. 

È il meno che tu possa fare 
per il tuo super computer. 

Puoi eiiettuare il versamento sul C.C.P. n* 19445204 
intestato a J sott - Milano, oppure ritaglia il taglian¬ 
do sotto riportato e spediscilo in busta chiusa, alle¬ 
gando assegno intestato a J .sott - Milano. 


Tagliando abbonamento a SUPERCOMMODORE C64 

□ Abbonamento o 11 numeri di SUPERCOMMODORE 
C64 (SO l. 30.000 anziché L. 38.500 

□ Abbonamento a I I numeri di SUPERCOMMODORE C64 
con cassetto (SCCI l. 66.000 anziché l. 82.500 

□ Assegno ollegato n’- 

□ Ho versolo l'importo sul C.C.P. n* 19445204 ollegato 


Cognome_ Nome- 

Città 

CAP 


Doto 
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l’attivazione del programma viene ri¬ 
chiesto di inserire la data corrente nella 
forma giorno/mese/anno (es. 011186), 
e l’ora corrente nella forma ore/minuti/ 
secondi (esempio 110800). Se non si 
desidera • per brevità - inserire alcun 
valore, si prema semplicemente RE¬ 
TURN ai prompt del programma; in 
questo caso, tuttavia, non verranno re¬ 
gistrate data e ora dell’ultimo aggiorna¬ 
mento effettuato sul file dati. 
Comparirà quindi un menu di selezione 
contenente le seguenti opzioni: 

0. Crea nuovo file 

1. Carica file esistente 

2. Salva file in memoria 

3. Scrive un record 

4. Legge un record 

5. Ricerca di un record 

6. Ordina alfabeticamente 

7. Memoria libera 

8. Stampa il file 

9. Fine operazioni 

Dal momento che alla prima utilizzazio¬ 
ne non disporremo di un file dati su 
nastro, dovremo generarlo. Selezionia¬ 
mo quindi l’opzione 0. 

11 programma ci chiederà il numero di 
campi per record e quindi il loro nome 
e rispettiva lunghezza. Viene quindi ri¬ 
chiesta la capacità del file (massimo nu¬ 
mero di record): qui occorre prestare 
molta attenzione. Non esiste un tetto 
massimo a questo valore, in quanto es¬ 
so dipende dal numero di campi che 
abbiamo stabilito precedentemente: 
100 record con 5 campi ciascuno occu¬ 
pano in genere più memoria di 80 re¬ 
cord con 15 campi ciascuno... Un valo¬ 
re di 5000 record per le dimensioni del 
file è tuttavia accettabilissimo dal C64, 
e offre un archivio veramente vasto: 
l’unica limitazione risiede a questo pun¬ 
to nella massima durata della cassetta 
che si utilizza come memoria di massa. 
Ad ogni buon conto, dopo aver assegna¬ 
to le dimensioni al file e quindi il suo 
nome, è conveniente controllare, trami¬ 
te l’opzione 7 del menu, l’ammontare 
di memoria lìbera: quest’ultimo non do¬ 
vrebbe mai essere inferiore a circa 
1000 - 2000 byte, al fine di lasciare 
sufficiente spazio per le variabili utilizza¬ 
te dal programma. Dopo un minimo di 
esperienza si sarà in grado di ottimizza¬ 
re la capacità dei file sul massimo valo¬ 
re possibile. 

Stabilite le massime dimensioni del file 
dovremo scegliere un nome da asse¬ 
gnargli: chiamiamolo “PROVA”. 

A questo punto potremo iniziare a inse¬ 
rire informazioni attraverso l’opzione 3: 
comparirà nella parte alta dello scher¬ 
mo una linea in campo inverso conte¬ 
nente le opzioni usabili in modo inseri¬ 
mento dati. Esse sono: 

tasto passa al record precedente 
tasto “+” passa al record successivo 
tasto “£" passa a un record particolare 
tasto “E” ritorna al menu principale 
tasto “I” permette l’inserimento dati 


A questo punto saremo posizionati sul 
record 1. Premiamo il tasto I per l’inse¬ 
rimento dati. Comparirà il nome del pri¬ 
mo campo e tra parentesi la sua lun¬ 
ghezza: saremo pronti per scrivere i no¬ 
stri dati. Se scrivendo raggiungiamo la 
fine del campo, il computer passerà 
automaticamente al campo successivo; 
se invece i dati che desideriamo inserire 
hanno una lunghezza inferiore alla mas¬ 
sima lunghezza del campo, dovremo 
premere RETURN per passare al cam¬ 
po successivo. 

Se non si desidera scrivere su un cam¬ 
po, è sufficiente premere RETURN. Do¬ 
po aver inserito i dati in tutti i campi il 
programma si posizionerà sul record 
successivo, in questo caso il numero 2. 
Un record può essere riscritto in qual¬ 
siasi momento, posizionandosi su di es¬ 
so con i tasti “+” e oppure con il 
tasto “£” (lira), che permette di scrivere 
su qualunque record, comunicandone il 
numero al computer. Premendo quindi 
il tasto “I” si potrà riscrivere il record. 
Scriviamo anche i dati del record 2 e 
ritorniamo al menu principale, premen¬ 
do il tasto “E”. 

Il nostro file conterrà ora due record, 
che potremo leggere con l’opzione 4. 
La schermata che compare è analoga 
a quella di scrittura (tranne per la parte 
alta dello schermo, che contiene, in ros¬ 
so, i dati generali del file) e identiche 
sono le funzioni dei tasti, tranne il tasto 
“I”, che ovviamente non compare in 
questa opzione. Il programma si posizio¬ 
nerà automaticamente sul primo record 
e lo visualizzerà sullo schermo. Potremo 
leggere il secondo sia premendo “+” 
che premendo “£” e rispondendo con 
2 alla domanda del computer. 

Dal momento che abbiamo inserito sol¬ 
tanto due record, cercando di leggere 
un record non scritto, ad esempio il nu¬ 
mero 3, il computer ci avviserà che tale 
record è vuoto. 

Premendo “E” ritorniamo al menu prin¬ 
cipale. 

Una delle caratteristiche più utili dei 
programmi di archivio è la possibilità di 
ricercare un certo record all’interno di 
un file, che magari ne contiene più di 
mille. L’opzione 5 esegue appunto que¬ 
sta funzione. 

Selezionando tale opzione, il computer 
visualizzerà l’elenco dei campi di ogni 
record e ci chiederà in base a quale 
campo desideriamo effettuare la ricer¬ 
ca. Ad esempio, volendo ricercare al¬ 
l’interno di un file di indirizzi composto 
da 5 campi (Cognome, Nome, Via, Cit¬ 
tà, Numero telefonico) il record conte¬ 
nente i dati del signor Rossi, scegliere¬ 
mo di effettuare la ricerca sul primo 
campo, e digiteremo “Rossi” alla richie¬ 
sta circa il contenuto del campo. 11 pro¬ 
gramma - dopo averci chiesto se deside¬ 
riamo o meno una stampa dei dati • 
ricercherà quindi, all’interno del file, 
tutti i cognomi “Rossi” che si ripetono 
nel primo campo. Se questo cognome 
compare nell'archivio, verrà visualizza¬ 
to il record contenente i suoi dati. 


Il programma chiederà quindi se si desi¬ 
dera proseguire nella ricerca (ci posso¬ 
no essere più persone il cui cognome è 
Rossi). In caso affermativo la ricerca 
prosegue fino alla ricorrenza successiva 
o alla fine del file. Se invece si deside¬ 
rasse controllare tutte le persone che 
abitano a Milano, si sceglierà per la ri¬ 
cerca il campo numero 4 e gli si asse¬ 
gnerà come contenuto la stringa “Mila¬ 
no”. 

Una particolarità interessante di questa 
opzione è che essa permette di ricerca¬ 
re un particolare record semplicemente 
digitando solo una parte del suo campo. 
Per spiegarci meglio, se il file contiene 
un record per il signor Rossi, uno per il 
signor Rossetti e uno per il signor Rosel- 
lini, ricercando “Rossi” verrà trovato 
solo il record del signor Rossi. Se alla 
domanda del computer sul contenuto 
del campo di ricerca digitiamo invece 
“Ross", il programma troverà sia “Ros¬ 
si” che “Rossetti”. Se digitiamo “Ros”, 
verrà trovato anche “Rosellini". Se digi¬ 
tiamo “R", verranno trovati tutti i re¬ 
cord che iniziano per R. 

Questa particolarità della funzione di ri¬ 
cerca risulta estremamente utile, se non 
ricordiamo esattamente un cognome o 
la forma del dato che ci serve. Ritornia¬ 
mo al menu principale. L’opzione 7 ci 
dice l’ammontare della memoria dispo¬ 
nibile (dopo un tempo di attesa più o 
meno lungo, necessario al computer per 
effettuare i suoi controlli). 

L’opzione 6 ordina invece alfabetica¬ 
mente tutto il file, a partire dal primo 
campo e poi via via per tutti i campi 
successivi, fino all’ultimo carattere di 
ogni record. Il tempo di attesa per l’ope¬ 
razione di ordinamento dipende dal nu¬ 
mero di record, dalla loro lunghezza e 
dal loro stato di "disordine” all’interno 
del file. Non è mai tuttavia troppo ele¬ 
vato, dal momento che tutta l’operazio¬ 
ne avviene in RAM. 

L’opzione 8 genera uno stampato di tut¬ 
to il file, con l’ordine secondo il quale i 
record si trovano all’interno del file stes¬ 
so. Ricordiamo che la stampa di record 
singoli è disponibile attraverso l’opzione 
di ricerca. 

Infine le opzioni 1 e 2 servono rispetti¬ 
vamente per il caricamento o il salva¬ 
taggio su nastro di un file dati. Viene in 
entrambi i casi richiesto il nome del file 
e, mentre in caso di caricamento il bor¬ 
do dello schermo diventa di colore por¬ 
pora, in caso di salvataggio esso passa 
all’azzurro. 

Si può uscire dal programma attraverso 
l’opzione 9, che dopo aver richiesto 
conferma provvede a un reset del com¬ 
puter. 

Ecco ora un elenco delle principali 
variabili utilizzate dal programma: 

RN massimo numero di record 

TY numero di record allocati 

F$ nome del file dati 

RL lunghezza dei record 

C numero dei campi 

N$() nome dei campi 
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L() lunghezza dei campi 

RC$() contenuto dei record 

R$ ritorno carrello 

BY ammontare di byte liberi 

F variabile di flag 

A codice ASCII di un tasto 

D$,U$ data aggiornamento 

TI$,T$ ora aggiornamento 

R contatore dei record 

PS posizione di una sottostringa 

Commento al listato 

100110: inizializzazione colori scher¬ 
mo, bordo e testo e passaggio al modo 
maiuscolo/minuscolo. 

130-160: accettazione data e ora cor¬ 
rente. A causa delle istruzioni CLR pre¬ 
senti nel programma, la data viene im¬ 
magazzinata permanentemente nelle 
tre locazioni di memoria 49152, 49153 
e 49154 nel suo formato, rispettiva¬ 
mente, di giorno, mese e anno. 

180-350: subroutine di input controlla¬ 
to per l'inserimento dei dati. Viene inol¬ 
tre generato uno pseudo-cursore, per 
facilitare l’inserimento stesso. 

370-480: definizione del file dati. Si de¬ 
finiscono il numero di campi per record, 
il loro nome e lunghezza, e la capacità 


e il nome del file. La massima lunghezza 
consentita di un record è di 255 caratte¬ 
ri (254 effettivi, in quanto il programma 
aggiunge automaticamente un 
CHR$(13) di fine record). 

490-500: subroutine di attesa della 
pressione di un tasto. Viene restituito 
anche il codice ASCII del tasto premuto 
nella variabile A. 

520-700: subroutine di inserimento da¬ 
ti. Questa subroutine permette sia l’in¬ 
serimento sequenziale dei record che il 
loro inserimento casuale all’Interno del 
file, posto che non esistano altri record 
ancora vuoti, dotati di numero progres¬ 
sivo inferiore. 

720-840: subroutine di lettura dei re¬ 
cord. Anch’essa permette sia la lettura 
sequenziale che quella di un record qua¬ 
lunque all’interno del file. 

940-970: subroutine di visualizzazione 
dei parametri principali del file durante 
la lettura dei record. 

990-1070: subroutine di salvataggio su 
nastro dell’intero file. 

1090-1170: subroutine di caricamento 
di un file da nastro e di automatico di¬ 


mensionamento dei vettori del pro¬ 
gramma. 

1180-1320: menu di selezione delle op¬ 
zioni offerte dal programma. 

1340-1490: ricerca di un certo record 
all'interno del file, in base al contenuto 
di uno qualsiasi dei suoi campi. La ricer¬ 
ca avviene con il principio della “wild 
card”. 

1510-1580: subroutine di ordinamento 
sequenziale e alfabetico del file. Vengo¬ 
no confrontati tra loro tutti i caratteri 
costituenti i vari record, e posti in ordi¬ 
ne strettamente alfabetico. 

1600-1630: subroutine di stampa di tut¬ 
ti i record contenuti nel file. 

1670-1680: visualizzazione dell’am¬ 
montare della memoria libera. E oppor¬ 
tuno che questo valore non scenda mai 
al di sotto di 1000 - 2000, a meno che 
manchino solo pochi record al raggiun¬ 
gimento della massima capacità del file. 

1700-1710: fine delle operazioni. Il pro¬ 
gramma chiede conferma e in caso af¬ 
fermativo provvede a un reset del com¬ 
puter. 


Seqfiling System 1.0 

100 REM * * INIZIALIZZAZIONE GENERALE** 

trem 51 

1 1 0 POKE53280,0:POKE53281 ,0:POKE64 6, 1 :PRI 
NTCHRS(14) : rem 203 

120 REM * * LA DATA VIENE IMMAGAZZINATA NEL 
LE LOCAZIONI 491 52, 491 53 E 491 54** 

:rem 165 

130 INPUT"{CLRjDATA CORRENTE ({ 2 G) 

{ 2 M){ 2 AT) { 2 SPAZI}000000 
{ 8 SIN)";D$ : rem 157 

140 I=VAL(LEFTS(D$,2)):POKE49152,I:I=VAL( 
MIDS (D$, 3,2) ) :POKE491 53,1 treni 228 
1 50 I = VAL(RIGHTS(D$,2)) :POKE491 54, I 

:rem 238 

160 INPUT"{GIU 1 )ORA CORRENTE{ 2 SPAZI)( 

{ 2 H}{ 2 M)I 2 S)){ 2 SPAZI)000000 
{ 8 SIN)";TI$ rGOTOl180 : rem 162 

170 REM **SUBROUTINE INPUT CONTROLLATO ** 

:rem 21 


180 PRINT"INSERISCI (TERMINA CON ' RETURN 
*):":PRINT:F=1:B$="":LS=0:A$="":A=0 




: rem 

96 

1 90 

GETA$:IFA$=""THENGOSUB280 

: GOTOI90 




: rem 

228 

200 

A=ASC(A$+CHR$(0)) 

: rem 

74 

210 

IFA$=CHR$(20)THENLS = LS-1 : 

F=0:B$=LEFT$ 


(B$,LEN(BS)- 1) :GOT0250 

: rem 

122 

220 

IFA$ =CHR$(13)THENF=0:GOT0310:rem 

100 

230 

IF(A>31ANDA<95)OR(A>159ANDA<233)THEN2 


50 

: rem 

21 2 

240 

PRINT:PRINT"CARA{ 2 T)ERE 

NON CONSEN 


TITO!":PRINT:GOTOl80 

: rem 

1 74 

2 50 

PRINTA$; 

: rem 

196 

260 

IFF=1THENB$=B$+A$:LS=LS+1 

: IFLEN(B$)=L 


(W)THENRETURN 

: rem 

83 

270 

F=1 : GOTO!90 

: rem 

90 


280 CI=PEEK(214)+1:C2=PEEK(211):L=1024+40 
*(C1 -1)+C2:IFL<10240RL>2023THENRETURN 

:rem 201 

290 POKEL+54 272,1 27:P0KEL,160 : FORI = 1TO80: 
NEXT:POKEL,32:FORI=1TO80:NEXT:RETURN 

:rem 155 

300 REM *‘AGGIUNGE SPAZI SHIFTATI FINO A 
LUNGHEZZA CAMPO** :rem 222 

310 A=LEN(B$):D=L(W)-A:IFA=0THENRETURN 

:rem 75 

320 IFD>0THEN340 trem 156 

330 IFD< 0THENBS =LEFT$(B$,L(W)): RETURN 

:rem 231 

340 A$ =CHR$(160) :C$ = "": FORI = 1TOD:C$=C$+A$ 
:NEXT:B$=B$+C$ : RETURN treni 64 

350 FORI = l T03000 :NEXT:RETURN treni 47 

360 REM ‘‘DEFINIZIONE DEL FILE**:rem 78 

370 CLR:INPUT"(CLR)QUANTI CAMPI PER RECOR 
D";C:PRINT:DIMN$(C),L(C) : rem 233 

380 RL= 0:FORI = 1TOC : rem 100 

390 PRINT"(RVS)CAMPO N.(OFF)"I :PRINT 

:rem 141 

400 INPUT"NOME";NS(I) : rem 94 

410 INPUT"LUNGHEZZA";L(I) : rem 194 

420 RL=RL+L(I) :PRINT:NEXT treni 96 

430 RL=RL+1:PRINT"LUNGHEZZA TOTALE DI UN 
RECORD:":PRINTRL"CARATTERI.":PRINT 

trem 222 

440 IFRL>255THENPRINT"RECORD TRO{ 2 P)0 
LUNGHI !": FORI = 1T05000:NEXT: GOTO! T80 

trem 32 

450 RN=0:PRINT"DIMENSIONI DEL FILE (N.REC 
ORD)";tINPUTRN:PRINT : rem 141 

460 DIMRCS(RN) : rem 30 

470 INPUT"NOME DEL FILE";F$:IFLEN(F$)>0AN 
DLEN(F$)<11THENF$=CHR$(18)+F$:GOTOl18 
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0 :rem 247 

4 80 PRINT"DA IATO CARA { 2 T) ERI !";G0T04 
70 :rem 147 

490 GETA5:IFA$ =""THEN490 :rem 93 

500 A=ASC(A$+CHR$(0)):RETURN :rem 103 

510 REM **INSERIMENTO DI UN RECORD** 

:rem 94 

520 R=TY+1 : rem 47 

530 PRINT"{CLR}{RVS}+ SU{ 2 C} . - PREC . £ 

SING . E ESCE { 2 SPAZIU INSER . " 

:rem 178 

540 PRINT" RECORD #"R :rem 158 

550 PRINT"{GIU’}SCELTA?" : rem 247 

560 GOSUB4 90 : IFA<>4 3ANDA04 5ANDA092 ANDA< 
>69ANDAO73THEN560 :rem 82 

570 IFA=43THENR=R+1 :rem 124 

580 IFA=43ANDR>TY+1THENPRINT"ESISTONO REC 
ORD VUOTI PIU'BASSI !": GOTO550 

:rem 124 

590 IFA=43THEN530 :rem 217 

600 IFA=4 5THENR=R-1 :IFR<1THENR=1 : rem 241 

610 IFA=45THEN530 :rem 212 

620 IFA=92THENINPUT"NUMERO DEL RECORD";R 

:rem 138 

630 IFA=92ANDR>TY+1THENPRINT"ESISTONO REC 
ORD VUOTI PIU'BASSI !" :GOTO620 




: rem 

1 22 

640 

IFA=92THEN530 

: rem 

21 7 

650 

IFA=69THEN1180 

:rem 

16 

660 

RC$ (R) = " " : FOR W= 1 TOC : PRI NT : 

B$ = " " 




: rem 

45 

670 

PRINTNS(W)"("L(W)"CARATT.) 

:":GOSUBl80 



:rem 

139 

680 

RC$ (R) =RC$ (R) +B$ 

: rem 

36 

690 

NEXT:IFR<=TYTHEN520 

:rem 

229 

700 

TY=TY+1:GOTO520 

: rem 

148 

71 0 

REM * * LEGGE IL FILE** 

:rem 

61 

720 

R= 1 

:rem 

89 

730 

GOSUB940:PRINT"{RVS}+ SU{ 

2 C}. 



{ 3 SPAZI}- PREC.{ 4 SPAZI}£ SING . 

{ 3 SPAZI}E ESCE { 3 SPAZI}" : rem 128 


740 PRINT" RECORD #";R:PRINT :rem 162 

750 IFRC$(R)=""THENPRINT" RECORD VUOTO !":G 
OTO780 : rem 23 

760 PS=1 :FORK=1 TOC :PRINTN$(K)":"MID$(RC$( 
R),PS,L(K)):PRINT:PS=PS+L(K): rem 230 
770 NEXT:PRINT : rem 164 

780 PRINT"{GIU'}SCELTA?":GOSUB490 

:rem 83 

790 IFA04 3ANDA0 4 5ANDAO92ANDAO69THENG0 
SUB490:GOTO790 :rem 157 

800 IFA=43THENR=R+1:GOTO730 :rem 133 

810 IFA=4 5THENR=R-1 :IFR<1THENR=1 : rem 244 
820 IFA=45THEN730 :rem 217 

830 IFA=92THENINPUT"N. RECORD";R:GOTO730 

:rem 107 

840 IFA=69THEN1180 :rem 17 

930 REM * * DATI DEL FILE** :rem 63 

940 POKE646,4 :PRINT"{CLR}{RED} FILE :"F$;TA 
B(20)"{OFF JCAPACITA':"RN :rem 156 
950 PRINT"CAMPI :"C;TAB(20)"RECORD:"TY 

: rem 5 

960 PRINT"AGGIORN.AL:"U$TAB(20)"ORE:"LEFT 
$ ( T$ , 2 ) " "MID$(T$,3,2)" "RIGHT$ (T$ ,2) 

: rem 30 

970 POKE646,1 :PRINT"************** ******* 
*******************": return : rem 129 
980 REM **SALVA IL FILE** : rem 89 

990 POKE53280,4:GOSUB940 :rem 138 


1000 PRINT"INSERISCI LA CASSETTA E PREMI 
RETURN " : rem 66 

1010 GOSUB4 90 : IFAOl 3THEN1 01 0 :rem 184 
1020 D$=STR$(PEEK(49152))+STRS(PEEK(49153 
))+STR$(PEEK(491 54)) : rem 124 

1 030 R$ =CHR$(13):OPEN1,1 , 1 , F$ :rem 26 
1040 PRINT#1, RN ; R$ ;TY;R$;C;R$;RL; R$ ; D$ ; R$ 
;TI$ :rem 197 

1 050 FOR1 = 1 TOC :PRI NT#1 , N$(I);R$;L(I) :NEXT 

: rem 232 

1 060 FORI = T TOTY:PRINT#1,RC$(I) :NEXT 

:rem 200 

1 070 CLOSEl:POKE53280, 1 :GOTOl180 : rem 116 
1 080 REM *‘CARICA IL FILE** : rem 173 

1090 CLR:POKE53280,5:INPUT"{CLR} NOME DEL 
FILE";F$:F$ =CHR$(18)+FS :rem 146 

1100 OPEN1,1,0,F$ : rem 116 

1110 INPUT#1,RN,TY,C,RL,U$,T$:DIMN$(C),L( 
C),RCS(RN) : rem 202 

1 120 FORI = 1TOC:INPUT#1 ,NS(I) ,L(I) :NEXT 

:rem 41 

1130 FORI = 1TOTY:RC$(I)="" : rem 193 

1140 GET# 1 , A$ :RC$ ( I) =RC$ ( I) +A$ : IFA$OCHR$ 
(13) THEN1140 : rem 139 

1150 NEXT : rem 6 

1160 CLOSEl :POKE53280,1 :GOTOl180 : rem 116 

1170 REM **MENU DI SELEZIONE** : rem 197 

1180 PRINT"{CLR}{RVS} SEQFILING 1.0 

{ 20 SPAZI}MCG 85" : rem 181 

1190 A$ = "{ 5 DES}" : rem 66 

1200 PRINT"{ 5 GIU'}"A$"0. CREA NUOVO FIL 
E" : rem 66 

1210 PRINTA$"1. CARICA FILE ESISTENTE" 

: rem 80 

1 220 PRINTA$"2 . SALVA FILE IN MEMORIA" 

: rem 1 9 

1230 PRINTA$"3. SCRIVE UN RECORD" 

: rem 11 

1240 PRINTA$"4. LEGGE UN RECORD":rem 165 
1250 PRINTA$"5. RICERCA UN RECORD" 

:rem 60 

1260 PRINTA$"6. ORDINA ALFABETICAMENTE" 

:rem 213 

1 270 PRINTAS"7. MEMORIA LIBERA" : rem 158 
1 280 PRINTA$"8. STAMPA IL FILE" : rem 98 
1290 PRINTA$"9. FINE OPERAZIONI":rem 11 
1 300 PRINT"{ 2 GIU'}SCELTA?" : rem 50 

1310 GOSUB490:IFA<480RA>57THENl310 

:rem 20 

1320 ONA-47GOTO370,1090,990,520,720,1340, 
1510,1670,1600,1700 :rem 35 

1 330 REM * * RICERCA UN RECORD** :rem 174 
1 340 PRINT" {CLRU CAMPI SONO: ": FORI = 1 TOC: 
PRINT"CAMPO N."I":",N$(I):NEXT 

: rem 5 

1350 PRINT"{GIU'JNUMERO DEL CAMPO SU CUI 
EFFETTUARE LA" : rem 71 

1 360 INPUT"RICERCA"; A :IFA<1ORA>CTHENl350 

:rem 229 

1370 PS=1:IFA>1THENFORI=1TOA-1:PS=PS+L(I) 

:NEXT : rem 171 

1380 INPUT"{GIU'}CONTENUTO DEL CAMPO";C$ 

: rem 215 

1390 INPUT"VUOI UNO STAMPATO{ 2 SPAZI}N 

{ 3 SIN}";S$:IFS$="S"THENOPEN4,4,7:C 
MD4 :rem 68 

1 400 FORI = 1 TOTY : IFC$OMID$ (RC$ (I) , PS , LEN ( 
C$))THENl470 :rem 140 

141 0 PRINT"{CLR}RECORD N."I : rem 174 

1 420 PO=1 :FORW=1 TOC : IFPO=1THENPRINTN$(1)" 
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:"LEFTS(RC$(I) , L ( 1 )): GOTO1440 

:rem 205 

1430 PRINTN$(W)":"MID$(RC$(I) f PO,L(W)) 

: rem 122 

1440 PO=PO+L(W):NEXT :rem 220 

1450 INPUT"{GIU*}PROSEGUO NELLA RICERCA ( 
S/N) { 2 SPAZI}S{ 3 SIN}";A$: rem 243 
1460 IFA$<>"S"THENll80 :rem 201 

1 470 NEXT : rem 11 

1480 IFS$="S"THENPRINT#4:CLOSE4 :rem 158 

1490 PRINT"{GIU'}ESITO NEGATIVO RICERCA. 
PREMI UN TASTO":GOSUB490rGOTOll80 

:rem 247 

1500 REM *‘ORDINAMENTO RECORD** :rem 81 
1510 PRINT"{CLRjORDINAMENTO IN CORSO. ATT 
ENDERE." : rem 128 


1 520 

F=0 

: rem 

123 

1 530 

FOR1 = 1TOTY-1 :IFRC$(I)< = 

RCS ( 1 + 1 ) THENl 


560 

: rem 

84 

1 540 

A$=RC$(I):RC$(I)=RC$(1+1):RC$(1+1)=A 


$ 

: rem 

195 

1 550 

F= 1 

: rem 

127 

1 560 

NEXT 

: rem 

11 

1 570 

IFF=1THENl520 

: rem 

7 

1 580 

GOTOl180 

: rem 

209 

1 590 

REM **STAMPA IL FILE** 

: rem 

21 4 

1 600 

PRINT"{CLR}POSIZIONA LA 

CARTA SULLA 


STAMPANTE ET 4 SPAZI)PREMI UN TASTO" 

:rem 125 

1610 GOSUB4 90 :OPEN4,4,7:CMD4:FORR=1TOTY 

: rem 187 

1 620 PS=1 :FORK=1 TOC :PRINTNS(K)":"MID$(RC$ 
(R),PS,L(K)):PRINT:PS=PS+L(K) 

: rem 18 

1 630 NEXT:PRINT:NEXT:PRINT#4:CLOSE4: GOTO! 

180 : rem 136 

1 660 REM *‘MEMORIA LIBERA** : rem 18 

1670 PRINT"{CLR}ATTENDERE...":BY=FRE(0)-( 
FRE(0)<0)*65536 :rem 195 

1680 PRINT"{CLR}"BY"BYTE LIBERI":GOSUB350 
:GOTOl180 : rem 140 

1 690 REM * * FINE OPERAZIONI** : rem 126 

1700 INPUT"{CLR}CONFERMA{ 2 SPAZIjN 
{ 3 SIN}";A$:IFA$<>"S"THENl 180 

:rem 247 

1 710 SYS64738 :rem 21 2 



Q Dalla grande 
edicola Jackson 

Tutto sull’hobby 
e home computer 


'ìD€C 


VIVM1I 

La guida indiscussa al fantastico mondo dei 
videogames. La più eccitante, divertente, 
istruttiva rassegna del settore 
11 numeri all'anno: L. 4.000 a numero 
Abbonamento: solo L. 33.000 

PERSONAL 

SOFTWARE 

Aspetti e problemi del software per personal 
computer, programmi, giochi e sistemi 
operativi. 

11 numeri all'anno: L. 4.500 a numero 
Abbonamento: solo L. 39.000 


11 nuovo fai da te per l’hobbista elettronico, 

con progetti sempre nuovi e originali da realizzare 
e divagazioni sul mondo dei micro computer. 

12 numeri all'anno: L. 3.500 a numero 
Abbonamento: L. 32.000 


È&sà 


Il mondo delle 7 note in 
versione ... elettronica. Con test strumentali, 
novità e analisi del mercato, servizi speciali 
11 numeri all'anno: L. 4.000 a numero 
Abbonamento: solo L. 35.000 

Quando l’informazione fa testo 

In busta chiusa inviate questo coupon a: 

Gruppo Editoriale Jackson via Rosellini, 12 - 20124 Mi 

□ Desidero ricevere GRATIS un numero della Rivista 

(allego L. 1000 in francobolli per contributo spese 
di spedizione) 

□ Inviatemi GRATIS il Catalogo della 

Biblioteca JACKSON (allego L 1 000 
in francobolli per contributo spese di 
spedizione) 

Nome- 

Cognome - 
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trad. ed adatt. 

di E. Stefani 


Ecco un veloce e colorato gioco 
in linguaggio macchina, di stile 
“spaziale”, che richiede il colle¬ 
gamento di un joystick nella por¬ 
ta 2. 


C on il consueto cannone laser dovre¬ 
te difendere la base spaziale dall'at¬ 
tacco dei perfidi alieni (...ma esisteran¬ 
no anche degli alieni buoni? 0 no?), 
che, oltre a minacciarvi con la loro stes¬ 
sa presenza, lanciano temibili missili 
aria-terra. 

Per ogni alieno colpito guadagnate cin¬ 
que punti, mentre al termine di ogni 
livello di gioco otterrete un bonus pro¬ 
porzionale al numero di colpi che avete 
messo a segno (pur avendo un numero 
infinito di munizioni, è quindi meglio non 
sprecarle). Per distruggere gli alieni di¬ 
sponete di ben cinque cannoni laser, 
mentre se raggiungete il quinto livello 
di difficoltà, vi viene offerto un cannone 
omaggio. 

Space Gallery consente anche un’opzio¬ 
ne “heat seeker" (ricordate questo gio¬ 
co precedentemente pubblicato?), otte¬ 
nibile all’inizio del gioco usando il qua¬ 
dratino grigio nella parte bassa dello 
schermo come interruttore. Questa op¬ 
zione fa in modo che di tanto in tanto 
compaiano degli alieni in grado di lan¬ 
ciare missili intelligenti, che seguono i 
vostri movimenti. 

Note per il caricamento e la digi¬ 
tazione 

Se si dispone della cassetta allegata alla 
rivista, è sufficiente posizionarsi con il 
nastro in corrispondenza dell’inizio del 
programma e premere contemporanea¬ 
mente i tasti SH1FT e RUN/STOP. 
Ricordiamo che per conoscere il punto 
esatto di inizio dei vari programmi su 
cassetta è sufficiente inserire questuiti- 
ma completamente riavvolta nel regi¬ 
stratore, azzerare il contanastro e digi¬ 
tare: 



LOAD-” 

Dal momento che sicuramente non esi¬ 
ste sulla cassetta alcun programma di 
nome il computer passerà in rasse¬ 
gna tutti i programmi incontrati, visua¬ 
lizzandone il nome con il messaggio: 

FOUND XXXX 

Sarà quindi utile annotarsi su un foglio 
i nomi dei programmi e la relativa 
posizione del contanastro (sottrarre tre 


o quattro unità dal valore corrispon¬ 
dente all’apparizione del messaqqio 
FOUND...). 

Gli abbonati alla sola rivista dovranno 
invece usare il programma MLX (vede¬ 
re nelle pagine fisse) per digitare il lista¬ 
to in linguaggio macchina. La procedu¬ 
ra da seguire, in questo caso, è: 
Digitare in modo diretto: 

POKE642,20:SYS58260 

Caricare in memoria MLX (che sarà sta- 
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to precedentemente digitato e salvato) 
e rispondere alle sue richieste circa gli 
indirizzi iniziale e finale con: 


indirizzo iniziale: 2049 
indirizzo finale : 4724 

Dopo aver digitato e salvato il program¬ 


ma tramite MLX si potranno seguire 
per il caricamento le istruzioni date più 
sopra per i possessori di cassetta. 


Space Gallery 

2049 : 01 2,008,01 0,000,1 58,050,239 

20 55 : 048,0 54,0 50,008,000,000,1 67 
2061 :000,160,005,169,048,153,036 
2067 : 222,003,1 36,01 6,250,1 60,038 
2073 :024,169,000,153,000,212,071 
2079 ;136,016,250,169,047,141,022 
2085 :024,212,169,026,141,019,116 
2091 : 21 2,1 69,005,141,008,212,022 
2097 : 1 69,022,141,012,212,032,125 

21 0 3 : 24 6,009,1 69,001 ,1 33,01 9,1 20 
2109 : 1 69,000,1 33,066,032,1 26,075 
21 1 5 : 01 3,032,231,01 4,032,090,223 
2121 :014,169,128,141 ,018,212,243 
2127 : 1 69,100,141,015,212,1 69,117 
2133 :244,141,023,212,032,209,178 
21 39 : 009,169,006,141 ,039,208,151 
2145 :032,084,010,032,156,010,165 
2151 :032,207,011,032,245,008,126 
2157 :032,017,010,032,175,010,129 
21 63 :032,073,01 1 ,032,1 93,01 2,21 2 
21 69 : 032,048,01 3,173,0 30,208,11 3 
21 75 : 0 32,045,01 2,032,1 94,009,1 95 
2181 :032,046,014,173,141,002,029 
2187 : 208,251 ,173,0 30,208,133,118 
2193 :249,041,001,240,215,165,032 
2199 :249,201,032,144,209,169,131 
2 20 5 : 251 ,1 41 ,248,007,169,002,207 
2211 : 1 41 ,0 39,208,1 69,1 28,1 41 , 221 
2217 :018,212,169,1 29,141 ,01 8,088 
222 3 : 21 2,1 69,000,141,023,212,164 
2229 :162,020,032,075,014,202,174 
2235 : 142,01 5,21 2,20 8,247,206,1 93 
2241 : 028,007,1 73,028,007,201 ,1 25 
2247 :048,208,128,032,209,009,065 
2253 : 1 69,000,141,021, 208,032,008 
2259 :138,255,162,009,160,010,177 
2265 :024,032,240,255,169,087,000 
2271 : 1 60,015,032,030,171,173,0 36 
2277 : 000,2 20,0 74,1 7 6,00 3,076,01 0 
2283 :054,008,074,176,244,169,192 
2289 :000,133,198,000,160,007,227 
229 5 : 032,0 30,011 ,136,136,016,096 
2 301 : 249,096,1 65,065,240,007,051 
2 307 : 1 9 8,065,198,065,141,022,180 
231 3 : 21 2,162,020,189,194,002,020 
231 9 : 24 0,0 57,1 33,252,1 89,1 93,055 
2 32 5 : 002,1 33,251 , 1 69,0 32,1 60,000 
2331 : 000,145,251 ,165,251 ,0 56,127 
2337 : 233,04 0,1 57,1 93,00 2,1 33,02 3 
2 34 3 : 251,165,252,233,000,201, 117 
2 34 9 : 003,208,005,1 69,000,1 57,075 


2355 : 193,002,1 57,194,00 2,133,220 
2 361 : 252,240,01 4,1 60,000,1 89,1 44 

2367 :182,003,145,251,198,064,138 
2373 :165,064,141,001,212,202,086 
2379 : 202,01 6,1 90,1 98,01 5,208,1 36 
2385 :034,1 69,003,1 33,01 5,1 60,083 
2 391 : 003,1 85,249,007,201 ,2 51 ,21 5 

2397 : 240,005,073,003,1 53,249,04 8 
24 0 3 : 007,1 36,01 6,241 , 1 60,030,1 77 
2409 :169,012,153,032,219,153,075 
241 5 : 072,21 9,1 36,01 6,247,076,1 09 
2421 :049,234,1 98,006,208,070,1 1 4 
24 2 7 : 1 62,02 2,202,202,04 8,064,0 55 
2433 :189,194,002,208,247,120,065 
24 39 : 169,006,1 57,194,002,165,060 
2445 : 003,1 60,003,074,00 6,0 04,1 35 
24 51 : 1 36,208,250,1 68,1 36,1 52,1 73 
2457 :024,105,168,157,193,002,034 
2463 :088,165,004,041 ,007,168,120 
2469 :185,036,016,157,182,003,232 
24 7 5 : 1 69,04 0,1 33,064,1 69,020,2 54 
2481 : 1 41,011, 212,169,021,141, 1 04 
2487 : 01 1,21 2,1 65,061,201,060,125 
24 93 : 240,002,230,061 ,096,1 34,1 84 
24 99 : 005,1 62,002,1 60,070,1 36,21 8 
2 50 5 : 208,253,202,208,248,1 66,206 
251 1 : 005,096,1 20,1 62,022,202,046 
251 7 : 202,01 6,002,088,096,1 89,0 38 
2 52 3 : 1 94,002,240,24 5,1 33,2 52,00 5 
2 52 9 : 1 89,1 93,002,133,251,1 60,129 
2 53 5 : 000,1 69,032,1 45,251 ,1 52,21 2 
2541 :157,194,002,157,193,002,174 
2 54 7 : 240,223,096,1 69,006,1 33,086 
2 553 : 002,1 69,009,1 33,24 8,1 20,1 62 
2 559 : 1 69,255,1 41,020,003,1 69,24 4 
2 56 5 : 008,1 41 ,021 ,003,088,1 69,1 79 
2 571 : 000,133,017,133,061,0 96,195 
2577 :198,016,240,010,173,000,142 
2 58 3 : 2 20,074,074,074,074,076,1 03 
2 589 : 062,01 0,1 69,003,1 33,01 6,1 66 
2 595 : 1 73,000,220,074,074,074,1 38 
2601 : 1 76,008,1 66,003,224,027,1 33 
2607 : 240,002,1 98,003,074,1 76,228 
261 3 : 008,1 66,003,224,240,240,1 66 
261 9 : 002,230,003,074,1 76,009,041 
2625 :032,119,009,169,200,133,215 
2631 :006,208,004,169,001,133,080 
2637 :006,165,003,141,000,208,088 
264 3 : 0 96,1 60,000,1 85,020,01 7,049 
2649 : 1 53,000,062,1 36,20 8,247,1 27 
2655 : 1 60,007,185,171,015,153,018 
2661 : 248,007,1 36,01 6,247,1 69,1 56 
2667 :031,141,028,208,169,002,174 
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2673 : 1 41 ,038,208,1 69,007,141,049 
2679 : 037,208,1 60,063,1 69,000,24 4 
268 5 : 1 53,000,063,1 36,01 6,2 50,231 
2 691 : 1 62,022,1 60,007,1 85,1 48,047 
2697 : 01 0,1 57,000,063,202,202,00 3 

270 3 : 202,1 36,01 6,244,096,048,1 1 7 
2709 : 028,048,028,048,028,024,097 

271 5 : 024,1 60,01 5,1 85,044,01 6,08 7 
2721 : 1 53,000,208,1 36,01 6,247,1 53 
2 727 : 169,1 50,1 33,00 3,1 73,027,054 
2733 : 208,096,1 73,0 31 ,208,1 62,027 
2739 : 007,01 0,1 44,045,224,005,1 02 
274 5 : 1 76,041,133,249,138,010,1 64 
2751 : 1 68,1 85,001 ,208,201 ,020,206 
2757 : 1 44,0 27,1 69,251,157,248,1 69 
2763 : 007,1 69,060,1 57,1 62,003,24 9 
2769 : 1 69,002,1 57,039,208,1 69,1 85 
2775 : 1 28,141,018,212,133,065,144 
2781 :169,129,141,018,212,165,031 
2 787 : 249,202,208,205,1 62,007,2 36 
2793 : 1 89,1 62,003,240,0 36,222,061 
2799 : 1 62,003,208,031, 173,021,069 

280 5 : 208,061 ,022,01 1 , 1 41 ,021 , 1 97 

281 1 : 208,1 89,0 54,01 6,1 57,0 39,1 46 
2 81 7 : 208,1 60,00 5,0 32,00 2,01 4,1 66 
2823 : 1 69,249,224,005,1 44,002,032 
2829 : 1 69,2 52,1 57,24 8,007,202,024 
2835 : 208,212,096,254,253,251 ,013 
2841 : 247,239,223,191 ,127,1 32,1 60 
2 847 : 00 5,1 62,001 ,1 69,000,1 53,009 
2853 : 082,003,1 85,1 42,003,056,2 52 
2 8 59 : 249,002,208,01 6,01 5,073,094 
2 865 : 255,024,1 0 5,001 , 1 53,1 02,1 77 
28 71 : 003,1 69,001 ,1 53,082,003,21 0 
2 877 : 208,003,1 53,102,003,1 36,1 54 
28 83 : 202,01 6,220,1 64,005,096,002 
2 889 : 1 60,007,1 8 5,0 82,003,208,206 
2 89 5 : 021 ,1 85,060,00 3,024,1 21 ,237 
2901 : 102,003,1 53,060,003,1 85,079 
2907 : 002,208,1 05,000,1 53,002,049 
291 3 : 208,076,1 1 9,01 1 ,1 85,060,24 4 

291 9 : 003,0 56,249,1 02,003,1 53,1 57 

292 5 : 060,003,1 85,002,208,233,032 

2931 :000,153,002,208,136,016,118 

293 7 : 209,1 60,007,1 85,002,208,1 24 
2943 :056,249,142,003,016,005,086 
2949 : 073,255,024,105,001 ,201 ,024 
2955 : 005,1 76,060,1 36,1 85,002,1 91 
2 961 : 208,056,249,1 42,003,01 6,051 
2 967 : 005,073,255,024,1 05,001,102 
2973 : 200,201 ,00 5,1 76,040,1 52,1 63 
2979 : 1 70,254,1 22,00 3,254,1 22,064 
2985 : 003,1 89,1 22,003,1 70,228,1 1 6 
2991 : 01 2,208,006,1 69,001 ,1 53,21 2 
2997 : 1 22,003,1 70,1 89,2 55,255,1 51 
3003 : 1 53,1 42,00 3,1 36,202,1 89,244 
3009 : 255,255,1 53,1 4 2,00 3,200,1 77 


3015 :032,030,011,136,136,016,048 
3021 : 174,096,1 73,027,21 2,041 ,1 60 
3027 :015,133,005,010,024,101,243 
3033 : 005,1 68,1 85,062,01 6,1 33,01 8 
3039 :012,200,185,062,016,141,071 
3045 :185,011,141,193,011,133,135 
3051 :020,200,185,062,016,141,091 
3057 :186,Oli,141,194,011,133,149 
306 3 : 021 , 1 60,009,1 77,020,1 53,01 9 
3069 : 1 42,00 3,1 36,01 6,24 8,1 60,1 90 
3075 : 255,1 62,001 , 1 52,1 57,1 22,084 
3081 : 003,232,232,200,200,1 92,04 4 

3087 :007,208,244,169,031,141,047 
3093 :021 ,208,162,003,169,249,065 
3099 : 1 57,249,007,202,01 6,250,1 40 
3105 : 162,007,1 89,0 54,01 6,1 57,1 06 
31 1 1 : 0 39,20 8,202,01 6,2 47,096,079 
3117 :173,021 ,208,010,010,010,221 
3123 : 1 62,004,010,176,1 26,202,21 9 
3129 : 208,250,230,01 7,1 65,01 7,1 76 
3135 : 201 ,005,208,106,169,000,240 
3141 : 1 41 ,021 , 208,0 32,209,00 9,1 77 
3147 :162,010,1 60,012,024,032,219 
3153 :240,255,169,003,160,016,156 
3159 :032,030,171,230,019,165,222 
3165 :019,201,005,208,003,238,255 
3171 :028,007,169,000,133,017,197 
31 77 : 1 66,01 9,0 32,20 5,1 89,1 69,1 1 7 
3183 : 060,056,229,061 ,133,005,143 
3189 :010,010,024,101 ,005,133,144 
3195 : 249,1 62,014,1 60,021 ,024,241 
3201 : 032,240,255,1 69,000,1 66,223 
3207 : 249,0 32,205,1 8 9,1 64,24 9,1 99 
3213 :032,002,014,162,050,032,177 

321 9 : 075,01 4,202,208,250,1 60,032 

322 5 : 000,1 32,061 ,1 85,1 04,21 7,084 
3231 :041 ,015,201 ,010,208,005,127 
3237 : 169,032,1 53,1 04,00 5,1 36,252 

324 3 : 208,239,0 32,1 56,01 0,0 32,080 
3249 : 207,01 1 ,032,245,008,1 65,077 

325 5 : 01 9,201 ,004,1 4 4,004,1 69,21 2 
3261 : 001 ,1 33,066,096,1 62,006,1 41 
3267 :173,021,208,010,010,010,115 
3273 : 1 33,249,006,249,1 44,061 ,01 9 
3279 : 189,002,20 8,0 56,237,000,1 31 
328 5 : 208,201,005,1 44,006,201 ,21 0 
3291 :250,176,002,144,028,173,224 
3297 : 027,21 2,074,1 97,002,1 76,1 45 
3303 : 036,032,01 7,01 3,1 76,031 ,024 
3309 : 1 89,002,20 8,1 53,008,208,237 
331 5 : 1 89,003,20 8,1 53,009,208,24 5 
3321 : 076,01 2,01 3,1 73,027,21 2,250 
3327 : 1 97,248,1 76,009,1 73,005,039 
3333 : 220,1 97,24 8,1 76,002,1 44,224 
3339 : 220,202,202,208,1 87,096,1 02 
334 5 : 173,021 ,208,1 60,003,01 0,080 
3351 :176,01 4,173,021,208,025,128 
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3357 :044,01 3,141,021 ,208,152,096 
3363 : 01 0,1 68,024,096,1 36,208,165 
3 369 : 236,0 56,096,000,032,064,01 3 
337 5 : 128,198,062,208,066,1 69,110 
3 381 : 004,1 33,062,1 62,006,254,1 62 
3 387 :009,208,1 89,009,208,201 ,1 1 5 
3 39 3 : 21 2,176,037,165,066,240,1 93 
3399 :042,173,113,018,201,032,138 
34 05 : 240,035,224,006,208,031,053 
3411 :189,008,208,205,000,208,133 
3417 :240,023,176,006,254,008,028 
3423 : 208,076,1 1 4,01 3,222,008,224 
3429 :208,076,114,013,173,021,194 
34 3 5 4 208., 061 , 1 1 9,01 3,1 41 ,021 , 1 58 
34 41 : 208,202,202,208,1 96,096,201 
3447 : 000,000,223,000,191 ,000,021 
34 53 : 1 27,1 69,1 47,032,210,255,041 
3459 :032,046,014,169,015,160,055 
346 5 : 00 0,1 53,000,216,1 53,000,147 
3471 : 21 7,153,000,21 8,153,000,11 6 
3477 :219,136,208,241,169,048,146 
34 8 3 : 1 60,00 5,1 53,2 33,004,1 53,09 5 
34 89 : 21 2,003,1 36,01 6,247,1 69,1 76 
34 9 5 : 000,1 41 ,033,20 8,1 69,0 53,00 3 
3 501 : 1 41 ,028,007,1 69,0 28,0 32,066 
3 50 7 :210,255,1 69,006,1 41 ,032,224 
3 51 3 : 208,1 60,0 32,1 62,024,0 24,027 
351 9 : 032,240,255,1 69,1 94,0 32,0 89 
3 52 5 :210,255,202,016,244,162,006 
3 531 : 003,1 60,034,024,032,240,1 84 
3537 : 255,1 69,207,1 60,01 5,032,023 
3543 :030,171,162,004,032,233,079 
3549 :013,162,01 1 ,032,2 33,013,173 
3555 : 1 62,01 8,032,233,01 3,0 96,01 3 
3 561 : 1 60,032,024,032,240,255,208 
3 567 : 1 69,1 79,1 60,01 5,032,0 30,056 
3 57 3 : 1 71 , 1 60,005, 185,222,003,223 
3 579 : 1 53,001 ,0 06,1 36,01 6,247,042 
3 58 5 : 096,1 34,00 5,1 92,000,24 0,1 56 
3 591 : 035,056,1 62,006,202,048,004 

3 597 : 026,1 8 9,2 3 3,004,1 0 5,000,0 58 
3603 : 1 57,233,004,1 57,21 2,003,01 7 
3609 : 201 ,058,208,238,169,048,179 
361 5 : 1 57,233,004,1 57,21 2,003,029 
3621 : 0 56,1 76,227,1 36,208,221 ,037 
3627 : 1 66,005,0 96,1 60,2 55,200,1 57 
3633 : 1 85,21 2,003,21 7,222,003,1 23 
3639 : 240,247,1 76,001 ,096,1 60,207 
364 5 : 005,1 85,21 2,003,1 53,222,073 
36 51 : 003,153,001 ,006,136,016,126 
3657 : 244,096,1 38,072,1 62,050,067 
3663 : 1 60,000,1 36,208,253,202,01 4 
3669 :208,248,104,170,096,162,049 
3675 :018,160,000,024,032,240,053 
3681 : 255,032,1 83,01 4,1 69,1 85,1 67 
3687 si 62,030,032,206,01 4,032,067 
3693 :189,014,032,195,014,1 69,210 
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3699 : 032,1 62,030,032,206,01 4,079 
3705 :032,183,014,032,195,014,079 
371 1 : 169,032,162,0 30,032,206,246 

371 7 : 01 4,032,21 3,01 4,032,1 95,1 21 

372 3 : 01 4,1 69,1 45,032,210,255,1 96 
3729 : 1 69,032,162,031,032,206,009 
37 35 : 01 4,032,21 3,01 4,032,189,133 
3741 :014,032,195,014,169,032,101 
3747 : 162,032,032,206,01 4,1 62,003 
3753 : 02 3,1 60,004,032,21 9-, 01 4,1 09 

37 59 : 1 62,023,1 60,024,032,21 9,027 
376 5 : 01 4,0 96,169,1 52,032,210,086 
3771 :255,096,169,1 51 ,032,210,076 
3777 :255,096,169,141 ,032,210,0 72 
378 3 :255,1 69,01 8,0 32,210,255,1 1 4 
3789 : 096,032,21 0,255,202,208,1 84 
3795 :250,096,169,223,032,210,167 
3801 : 255,096,024,032,240,255,095 

380 7 : 1 69,049,1 60,01 8,0 32,0 30,1 69 

381 3 :171 ,096,1 60,000,032,219,139 
3819 :011,032,156,010,032,084,048 
3825 :010,032,245,008,169,030,223 

38 31 : 1 62,008,1 60,009,024,0 32,1 30 
3837 : 240,2 55,1 69,0 20,1 60,01 8,091 

3 84 3 :032,0 30,1 71 ,162,018,1 60,064 
3849 :006,024,032,240,255,169,223 
3855 :066,160,018,032,030,171,236 
3861 : 1 73,1 1 3,01 8,1 41 ,082,007,043 
3867 : 032,073,01 1 ,032,1 94,00 9,1 22 
3873 :032,194,009,173,000,220,149 
3879 : 074,1 76,017,1 65,067,208,234 
388 5 : 231 ,230,067,1 73,1 1 3,01 8,1 09 
3891 : 073,1 28,1 41 ,1 1 3,01 8,076,0 88 
3897 :021 ,01 5,072,1 69,000,1 33,21 1 
3903 : 067,1 04,074,074,074,074,01 8 
3909 : 1 76,206,1 62,008,1 60,009,022 

391 5 : 024,032,240,255,169,035,062 
3921 si 60,018,032,0 30,171,096,076 

392 7 : 028,071 ,065,077,069,032,1 73 
3933 : 079,086,069,082,01 7,01 7,1 87 
3939 : 01 7,1 57,1 57,1 57,1 57,1 57,1 33 
394 5 : 1 57,1 57,1 57,1 57,1 57,1 57,023 
3951 : 1 57,1 57,1 57,1 57,1 59,080,21 0 
3957 : 082,069,0 83,083,0 32,085,039 
3963 : 080,032,0 84,079,0 32,080,254 
3969 : 076,065,089,032,065,071 ,01 5 
3975 : 065,073,078,01 7,01 7,01 7,1 46 
3981 :157,157,157,157,157,157,059 
3987 : 1 57,1 57,1 57,1 57,1 57,1 57,065 
3993 : 1 57,1 57,1 57,1 57,1 57,1 58,072 
3999 : 068,079,087,078,0 32,0 84,075 

4 00 5 :079,032,069,078,068,000,235 
401 1 : 248,249,249,249,249,252,1 31 
401 7 : 252,252,028,1 71 , 1 95,1 95,246 
4023 :195,195,195,195,195,017,151 
4029 : 01 7,1 57,1 57,1 57,1 57,1 57,223 
4035 : 1 57,1 57,1 57,1 71 ,1 95,1 95,203 



4 041 : 1 95,1 95,1 95,1 9 5,1 95,000,1 52 
4047 : 1 59,083,067,079,082,069,234 
4053 : 01 7,01 7,01 7,01 7,01 7,01 7,059 
4059 :157,157,157,157,072,073,224 
4065 : 071 , 072,01 7,1 57,1 57,1 57,088 
4071 : 1 57,157,083,067,079,082,088 
4077 : 069,017,017,017,017,017,135 

40 83 : 01 7,01 7,1 57,1 57,1 57,1 57,1 37 
4089 : 1 57,1 57,067,065,078,078,083 
4095 : 079,0 78,0 83,000,1 50,076,209 

41 01 : 069,086,069,076,01 7,01 7,083 
41 07 : 01 7,01 7,1 57,1 57,1 57,1 57,1 61 
4113 :157,157,157,157,083,072,032 
41 1 9 :079,084,032,0 66,079,078,1 85 
4125 : 085,083,145,145,145,145,009 
4131 :000,101,084,071,066,093,194 
4137 :089,072,103,000,200,020,013 
4143 :080,020,080,020,080,020,091 
41 49 : 080,001 ,004,004,004,004,1 50 
41 55 : 007,007,014,009,1 10,01 6,222 
4161 : 023,118,016,013,140,016,135 
4167 :011,152,016,017,162,016,189 
4173 : 01 7,178,016,021,194,016,007 
41 79 : 021 ,214,016,037,178,016,0 53 
4185 : 021 , 234,016,023,254,016,141 
4191 :031,110,016,033,162,016,207 
41 97 :023,140,016,041 ,194,016,019 
4203 :043,234,016,023,100,138,149 
4209 : 1 50,250,1 00,1 45,0 50,050,090 
4215 : 080,11 0,080,1 10,1 70,210,1 11 
4 221 : 1 70,21 0,080,250,080,050,1 97 
4227 : 080,0 50,1 60,1 70,080,2 50,1 53 
4233 : 1 60,250,080,0 30,040,1 40,069 
4 239 : 1 00,250,1 60,250,040,1 4 0,059 
4245 : 1 00,0 30,1 60,080,080,130,217 
4 2 51 : 080,1 1 0,1 50,200,1 50,250,071 
4 2 57 : 080,000,000,1 20,000,1 20,22 5 
4263 :120,030,170,100,050,190,059 
4269 : 170,2 50,100,1 00,1 00,0 30,1 55 
4275 :050,140,110,250,1 70,140,015 
4281 : 1 20,250,0 50,1 50,090,030,1 07 
4 287 : 1 70,1 30,080,000,000,1 20,1 79 
4293 :000,240,000,160,050,250,129 
4 299 : 1 00,1 60,1 50,1 20,1 00,080,1 45 
4 305 : 1 50,030,100,090,050,1 22,239 
431 1 : 050,245,050,1 22,1 10,030,054 
4 31 7 : 1 60,1 50,1 60,2 50,1 60,2 50,071 
4 323 : 140,1 30,1 40,030,1 40,0 30,069 
4 329 : 050,000,000,1 22,000,24 4,1 37 
4 335 : 000,244,1 20,1 30,1 70,070,20 5 
4 341 : 1 30,1 30,0 50,250,1 30,1 30,041 
4 34 7 : 1 30,0 30,1 20,000,000,1 22,1 41 
4 353 : 000,1 22,1 20,1 50,1 70,1 80,231 
4 3 59 : 1 00,21 0,1 70,2 50,1 00,1 80,24 9 
4365 :170,110,100,030,170,000,081 
4 371 : 080,000,060,000,000,21 5,1 1 8 
4 377 : 000,000,21 5,000,000,2 55,2 39 


4 38 3 : 000,002,255,000,008,255,0 39 
4 389 : 000,00 8,2 55,1 28,002,255,1 73 
4395 :032,000,170,128,000,255,116 
4401 : 000,002,255,000,008,255,057 
4407 : 000,008,255,1 28,002,255,1 91 
4413 :032,000,170,128,000,255,134 
441 9 : 000,000,255,000,003,255,068 
4425 :192,015,255,240,063,255,069 
4431 : 252,255,255,255,255,003,074 
4 437 : 000,1 92,001 , 000,064,001 ,087 
4443 :000,064,001,000,064,000,220 
4449 : 085,000,001 ,085,064,005,081 
4455 : 1 50,064,006,040,1 44,005,000 
4461 : 1 50,080,005,085,080,007,004 
4467 :065,208,003,085,192,001,157 
4473 :215,064,000,125,000,000,013 
4479 :085,000,112,085,013,209,119 
4485 : 000,071 ,004,000,01 6,000,224 
4491 :000,000,000,000,000,000,139 
4497 : 000,000,255,240,000,01 5,143 
4 50 3 :004,000,016,001, 000,064,236 
4509 :001,000,064,000,085,000,051 
4515 : 001 , 1 50,064,002,040,128,036 
4521 :004,065,016,005,020,080,103 
4527 :005,085,080,006,125,144,108 
4 533 : 002,0 85,1 28,001 , 1 50,064,099 
4 539 : 000,1 05,000,000,085,000,1 21 
4 54 5 : 000,0 85,000,001 ,000,064,087 
4551 :004,000,016,004,000,016,239 
4 557 : 1 1 2,000,01 3,208,000,007,0 33 
4563 :255,000,192,000,000,192,082 
4 569 : 060,1 92,240,224,240,227,1 20 
4 575 : 1 76,060,227,1 76,0 59,238,1 35 
4 581 : 1 92,01 4,1 70,1 92,003,1 45,1 77 
4 587 :1 92,003,132,176,014,021 , 005 
4 593 :044,058,021 ,043,255,068,21 8 
4 599 : 1 24,003,1 32,1 92,00 3,1 32,06 5 
4 60 5 :1 92,014,132,176,059,209,Oli 
4 61 1 : 1 76,2 52,234,1 76,1 92,239,24 8 
4 61 7 : 1 72,000,224,2 32,000,1 92,061 
4 623 : 063,000,1 92,003,255,1 50,1 66 
4629 : 083,080,065,067,069,032,1 61 
4635 :071 ,065,076,0 76,069,082,210 
4 641 : 089,000,032,0 32,0 32,032,2 50 
4 64 7 : 032,032,0 32,032,032,0 32,231 
4 6 53 : 032,032,0 32,000,1 4 6,028,0 59 
4659 : 223,01 8,032,0 32,1 46,1 69,1 59 
4665 : 01 7,157,1 57,157,01 8,032,083 
4671 : 032,1 4 6,000,1 58,0 80,0 82,049 
4677 : 069,083,083,032,070,073,223 
468 3 : 082,069,0 32,084,079,0 32,1 97 
4689 :066,069,071,073,078,013,195 
4695 : 1 50,01 7,01 7,032,032,032,1 1 1 
4 701 : 032,032,032,032,032,032,029 
4707 :032,032,072,069,065,084,197 
471 3 :032,083,069,069,075,069,246 
4719 :082,000,032,013,013,013,008 
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per il tuo Commodore 64 



Il GIOCO DELLA BORSA 


Il -Gioco dolio Bono- è un gioco di 
simuioziorie por Commodoro 64. Fino o odo 


Cod. CCAMC01 


vivendo In primo ponono lo emozioni o I rischi 
che dà comporlo. 

Il gioco comprendo oncHe un mi completo di 
speciali corte da gioco, oppo rii amento creale 
por I metsoggi loto» che. orrendo riterrai!, 
non devono orrore lodi dogli aworrori. 

Il -Gioco dello Bono - è uno timuioiiono 
veramente completo o non * dominato dodo 
cowobtòi li giocatore è tempro dotato dodo 
possibilità di scolta ira II Ione io del dodi o 
rutilino di uno tetterò delia quale è 
procedentemente entroto in porrerro. 


Cod. OAMCOI 
Un gioco di owen to ro 


6d che 



Scopo del gioco è 
secondo uscito daBo 
mantener t i in vite e, 


i di trovare uno 


Il gioco con ritte nel vertice i panni di John 
Bratta, g-ovane avventuriero, cercare e 
trovare lo “rcorobeo d'ora-, sepolto da 
qualche pone nell'Immenso piramide del 
faraone Ankenolhon. 

Per prima coio è necessario scoprire il 
patrog^po segreto per poter entrare 
ned"antico sepolcro. lutto l'owentvra ti ivolge 
oi Cairo, lo misterioso ritto agimmo, dove si 
incontreranno numerosi personaggi, ornici o 
nemici, che vi occompognerunno nello ricerco 



por un totale di l 
Scelgo lo seguonto modolità di pupo mento 
O pogherp in contrassegno oi postino 

□ allogo contanti 

□ ollogo assegno n* 


□ verro l'imporlo sul C.C.P n - 19445204 intestalo o l.tofr 



























di E. Pollar! 



Questa utility vi toglierà una vol¬ 
ta per tutte l’incomodo di dover 
ricordare la SYS di attivazione 
dei programmi in linguaggio 
macchina, oltre ad eliminare la 
necessità di specificare l’indi¬ 
rizzo secondario 1 nell’istruzio¬ 
ne di caricamento. 

L a nostra rivista ha pubblicato molti 
programmi in linguaggio macchina 
allocati sia al di fuori dell’area BASIC 
che nella sua parte alta, quei program¬ 
mi cioè con indirizzo iniziale maggiore 
di 2049 (ad esempio Ultrafont, Super- 
Monitor, Trident, Digger, Turbodisk, 
MetaBasic, etc). 

Tutti questi programmi per essere cari¬ 
cati hanno bisogno di una sintassi del ti¬ 
po: 

LOAD“NOMEFILE", 1,1 
seguita, a fine caricamento, da: 

NEW 
e da: 

SYS XXXXX 

per ottenerne l’attivazione. Un’alterna¬ 
tiva a questo procedimento potrebbe 
essere la creazione di un programmino 
caricatore del tipo: 

10 A=A+1:IFA = 1 THENLOAD 
“NOMEFlLEU.l 
20 SYS XXXXX 

il quale provvede a caricare e mandare 
in esecuzione il programma in linguag¬ 
gio macchina. 

Uno svantaggio di questi programmi in 
linguaggio macchina sta nella loro diffi¬ 
coltà di manipolazione: per produrne ad 
esempio delle copie per se stessi o per 
gli amici bisogna ricorrere a MLX oppu¬ 
re al SuperMonitor; occorre ricordarsi 
o andare a cercare nelle pagine della 
r.vista le locazioni iniziali e finali, e non 
sempre si ha la rivista sotto mano. 
Inoltre, se possedete qualcuno dei vari 
programmi commerciali che copiano da 
nastro a disco, vi accorgerete che spes¬ 
so essi risultano inutilizzabili, in quanto 
occupano le stesse locazioni di memoria 


del programma da duplicare. 

Come fare per porvi rimedio e trasfor¬ 
mare questi programmi in docili file da 
copiare con un semplice SAVE, carica¬ 
re con un semplice LOAD e mandare 
in esecuzione con RUN senza doversi 
ricordare tanti numeri diversi? 

Tutto ciò diventa possibile con il pro¬ 
gramma rilocatore presentato in questo 
articolo. 

Esso può essere immaginato come spez¬ 
zato in due parti: la prima inserisce, in 
testa al programma da rilocare, una 
routine in linguaggio macchina e una 
linea BASIC contenente la SYS di atti¬ 
vazione della routine, che ha il compito 
- al momento del RUN - di riportare 
il programma nelle stesse locazioni ori¬ 


ginarie da cui era stato prelevato. 

La seconda parte si occupa invece di 
trasferire il programma da rilocare nel¬ 
l'area BASIC. 

©Ma facciamo un esempio pratico: sup¬ 
poniamo di voler rilocare il programma 
“Turbodisk” pubblicato sul numero 
8/85. 

Carichiamo in memoria il “Turbodisk”, 
generato nel modo descritto dall’artico¬ 
lo relativo (per intenderci quello che vie¬ 
ne chiamato, una volta generato, col 
nome TURBODISK.OBJ), attraverso la 
usuale sintassi con il doppio 1 (oppure, 
8,1 se si carica da disco) e diamo un 
bel NEW. 

Fatto ciò digitiamo in modo diretto: 
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POKE44,100:POKE100’256,0:NEW 

per spostare l’inizio del BASIC. Se non 
effettuassimo queste POKE, durante la 
rilocazione il TURBODISK.OBJ an¬ 
drebbe a sovrascriversi allo stesso pro¬ 
gramma Rilocatore. 

A questo punto possiamo caricare il Ri¬ 
locatore e rispondere alle sue domande 
nel modo seguente: 

LOCAZIONE INIZIALE ? 49152 
LOCAZIONE FINALE ? 50084 
SYS (S/N)*? rispondete S 

Il programma vi chiederà a questo pun¬ 
to il numero di SYS: 

SYS ? 49152 

FRASE DOPO LA SYS (S/N) ? S 

Rispondendo con “S" potrete inserire 
un commento di 22 caratteri dopo la 
SYS. Potete ad esempio mettere il vo¬ 
stro nome, il titolo del programma o 
qualsiasi altra scritta vi possa tornare 
utile. 

Il Rilocatore domanderà quindi: 

DISABILITO IL RUN/STOP RESTO- 
RE (S/N) ? 

Visto che il TURBODISK.OBJ è un’uti¬ 
lity, non conviene utilizzare questa op¬ 
zione, che può invece risultare conve¬ 
niente nel caso di un gioco o di un pro¬ 
gramma che desideriate proteggere. Ri¬ 
sponderemo quindi con N. 

La domanda successiva del Rilocatore 
sarà: 

INSERISCO UN LOAD (S/N) ? rispon¬ 
dete N 

se rispondete S verrà infatti inserita 
un’istruzione di LOAD a fine program¬ 
ma, che può essere utile quando il pro¬ 
gramma è composto da più parti che si 
caricano in sequenza. Questa istruzione 
LOAD funziona solo con il registratore 
a cassette, e caricherà il primo pro¬ 
gramma trovato sul nastro. Nel caso di 
routine in linguaggio macchina non fini 
a sé stesse, ma utilizzabili soltanto da 


BASIC - come ad esempio il program¬ 
ma INGRANDIRE pubblicato sul nume¬ 
ro 4/84 -, potrebbe essere desiderabi¬ 
le venga caricato automaticamente il 
programma BASIC che le utilizza. 

La domanda successiva posta dal Rilo¬ 
catore sarà: 

NOME PROGRAMMA DA SALVARE? 

Digitate quindi il nome che desiderate 
assegnare al programma rilocato; se 
premete semplicemente RETURN, ver¬ 
rà assunto per default un nome stan¬ 
dard (linea 590). 

Rispondendo infine con S all’ultima do¬ 
manda, il programma eseguirà il SAVE 
su disco della nuova versione rilocata 
del programma in linguaggio macchina. 
Chi possiede soltanto il registratore a 
cassette dovrà sostituire il numero 8 
con un 1 nella linea 780. 

A questo punto ci troveremo sul di¬ 
schetto un programma che potremo ca¬ 
ricare con LOAD“NOMEFILE”,8 e 
mandare quindi in esecuzione con un 
semplice RUN. 

Il Rilocatore opera anche su programmi 
che risiedono nella parte alta o centrale 
dell’area BASIC, come ad esempio Me- 
taBasic, Spike, ecc. 

Il programmino che segue vi fornisce, 
caso per caso, le POKE da effettuare 
prima di caricare il Rilocatore: 

10 PRINT"DATI DEL PROGRAMMA D 
A RILOCARE:" 

20 INPUT"INDIRI ZZO INIZIALE:" 

;s 

30 INPUT"INDIRI ZZO FINALE :"; E 
40 L=E-S:L=L+500:REM COEFF. D 
I SICUREZZA 

50 1 = INT( (2049+D/256) +1 
60 PRINT"LE POKE DA EFFETTUAR 
E SONO:" 

70 PRINT"POKE44,"I":POKE"I"*2 
56,0:NEW" 

80 K=INT(S/256) 

90 PRINT"SEGUITE DA:" 

100 PRINT"POKE644,"K":SYS5826 
0 " 

1 1 0 END 


Poiché nel caso di programmi in area 
BASIC devono trovarsi contempora¬ 
neamente in RAM il programma da rilo¬ 
care, il Rilocatore e il programma rilo¬ 
cato, dividendo per due la RAM dispo¬ 
nibile si hanno circa 19500 byte liberi, 
dai quali vanno tolti i circa 3000 byte 
occupati dal Rilocatore e dalle sue va¬ 
riabili. Ne risulta un totale, stando stret¬ 
ti, di 16 Kbyte, che sarà da assumere 
come limite massimo per la lunghezza 
del programma da rilocare, se esso si 
trova in area BASIC. 

Usando il programmino di cui sopra, do¬ 
vrete inserire due diverse linee di PO¬ 
KE, la prima delle quali alza l’inizio del¬ 
la memoria, mentre la seconda ne ab¬ 
bassa il tetto. Ciò impedisce in ogni caso 
che si verifichino sovrascritture tra i tre 
programmi presenti in memoria. Se 
quando date il RUN al Rilocatore otte¬ 
nete un “OUT OF MEMORY ERROR”, 
significa che il programma da rilocare 
è troppo lungo e non può quindi essere 
trattato dal Rilocatore (ciò si verifica 
comunque ben di rado). 

Riassumiamo quindi la procedura da se¬ 
guire per rilocare un programma: 

CASO A: programma non in area BA¬ 
SIC (indirizzo iniziale maggiore od ugua¬ 
le a 49152). 

- Caricare il programma da rilocare, 
usando l’indirizzo secondario 1, e digita¬ 
re NEW. 

- Inserire la linea di POKE fornita pre¬ 
cedentemente. 

- Caricare ed attivare il Rilocatore. 

CASO B: programma in area BASIC 
(indirizzo iniziale minore di 40960). 

- Calcolare le due linee di POKE da 
effettuare, tramite l’apposito program¬ 
mino, e segnarsele su un foglio di carta, 

- Caricare il programma da rilocare, 
usando l’indirizzo secondario 1, e digita¬ 
re NEW. 

- Digitare le due linee di POKE fornite 
dal programmino. 

- Caricare ed attivare il Rilocatore. 


Programma Rilocatore 


100 PRINT"{CLR}{ 2 GIU'}"TAB(15)"ATTENDI. 

: rem 124 

1 10 FORI = 2048TO2167 :READA:POKEI,A:NEXT 

:rem 111 

120 REM - DATI SYS IN LINEA BASIC - 

trem 8 

130 DATA000,052,008,193,007,158,032,040 

:rem 156 

140 DATAOSO, 04 9,049,050,041 ,032,032,058 

:rem 163 

1 50 DATAI 62,0 58,1 43,01 8,020,020,020,020 

:rem 147 

160 DATA020,020,020,020,020,032,032,040 

trem 125 


1 70 DATA067,041 ,032,032,066,089,032,072 

:rem 173 

180 DATA069,085,082,079,032,083,079,070 

treni 196 

190 DATA084,032,032,000,000,000,000,000 

treni 126 

200 DATA000,000,000,000,000,000,000,000 

trem 96 

210 DATAI 73,040,003,041 ,255, 141 ,040,003 

trem 145 

220 DATA234,162,112,160,008,134,095,132 


trem 163 

230 DATA096,234,162,112,160,024,134,090 


trem 166 
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24 0 DATAI 32,091,234,162,000^1 60,208,134 

: rem 159 

250 DATA088,132,089,234,032,191,163,076 

:rem 188 

260 DATA000,000,000,000,000,000,000,000 

:rem 102 

270 DATA000,000,000,000,000,000,000,000 

:rem 103 

280 B=2112 : REM ($0840) BASE :rem 89 

290 K=2160 : REM ($0870) INIZIO :rem 32 

300 INPUT"{CLR}{ 2 GIU'}LOCAZIONE INIZIAL 
E "; IN : rem 231 

310 HI=IN/256:HI%=HI:LI=(HI-HI%)*256 

:rem 27 

320 INPUT"{GIU'}LOCAZIONE FINALE 

{ 3 SPAZI}";FI : rem 151 

330 FI=FI + 1 : REM AGGIUNGO UNA UNITA' 

:rem 72 

34 0 HF=FI/256:HF%=HF:LF=(HF-HF%) *256 

: rem 4 

350 POKE B+28,LF : REM BYTE BASSO FIN. 

:rem 49 

360 POKE B+30,HF%: REM BYTE ALTO FIN. 

: rem 4 

370 LU=(FI-IN)+K: REM LUGHEZZA PRG. 

: rem 49 

380 HL=LU/256:HL%=HL:LL=(HL-HL%)*256 

:rem 62 

390 POKE B+19,LL : REM BYTE BASSO INI. 

:rem 62 

400 POKE B+21,HL%: REM BYTE ALTO INI. 

: rem 8 

410 INPUT"{GIU'}SYS (S/N){ 2 SPAZI )S 

{ 3 SIN}";A$ : rem 100 

420 IFA$ = "N"THENPOKEB+36,76 :POKEB+39,96 :G 
OTO460 :rem 16 

430 INPUT" {SU}SYS{ 10 SPAZlH 9 SIN}";SY 

:rem 103 

440 HS=SY/256:HS%=HS:LS=(HS-HS%)*256 

:rem 112 

450 POKE B+40,LS:POKE B+41,HS% :rem 139 
460 INPUT"{GIU'}FRASE DOPO LA SYS (S/N) 

{ 2 SPAZI}N{ 3 SIN}";F0$ :rem 201 

470 IF F0$<>"S"THEN540 :rem 157 

480 PRINT"{SU}FRASE MAX (22 CARATTERI) 

{ 4 SPAZI}" : rem 169 

490 PRINT"{ 2 SPAZI}. 

." :rem 98 

500 INPUT Fi $ :L=LEN(Fi $) :TB%=(21 —L)/2 

:rem 14 

510 FORI=1T022:POKE2077+I,32:NEXT 

:rem 242 

520 FORI = 1TO L:TM$=MID$(Fi $,1,1) :rem 28 
530 F2$=F2$+TM$:POKE2077+TB%+I,ASC(TM$):N 
EXT : rem 34 

540 INPUT"{GIU'}DISABILITO RUN/STOP RESTO 
RE (S/N){ 2 SPAZI}N{ 3 SIN}";J$ 

: rem 223 

550 IFJ$="S"THENPOKE B+4,225 :rem 47 
560 INPUT"{GIU'}INSERISCO UN LOAD (S/N) 

{ 2 SPAZI}N{ 3 SIN}";J$ : rem 225 

570 IFJ$="S"THENPOKE 2064,147 :rem 95 
580 INPUT"{GIU'}NOME PROGRAMMA DA SALVARE 
" ; N$ : rem 151 

590 IFN$=""THEN N$="RILOCATO{ 3 SPAZI}"+T 
1$ :rem 139 

600 REM TRASFERIMENTO BLOCCHI DI MEM. 

:rem 235 

610 J=J+1:READA$:POKE678+J,VAL(A$) 

:rem 199 

620 IFA$<>"*"THEN610 :rem 58 



630 

640 

650 

660 

670 

680 

690 

700 

710 


720 

730 

740 

750 

760 

770 


780 

790 

800 


REM NUMERO BLOCCHI DA TRASFERIRE 

: rem 

H=FI-IN : H0= (H/2 56) :H0%=H0 :.rem 
IF(H0%-H0)<>0THENH0%=H0% + 1 : rem 

POKE 682,H0% :rem 

POKE 684,LI :POKE 685,HI% :rem 

REM-DATI RI LOCATORE- 

:rem 


1 95 
82 
105 
52 
29 


1 4 


DATAI 60,000,162,01 5,18 5,000,1 92,1 53 

:rem 166 

DATATI 2,008,200,208,2 4 7,238,1 73,002 

:rem 164 

DATA238,176,002,202,208,238,096,000 

:rem 173 


DATA* : rem - 221 

SYS 679:REM ATTIVAZIONE TRASF.DATI 

:rem 123 

REM-SAVE PROGRAMMA- 

:rem 247 

PRINT"{ 6 GIU'}{ 3 SPAZI}<< PREMI S P 
ER ESEGUIRE LA SAVE >>" :rem 147 

GETA$: IFA$O"S"THEN760 : rem 237 

PRINT"{CLR}{ 3 GIU'}P043,1 : PO44,8"; :P 
RINT": PO45,";LL;:PRINT":P046,";HL% 

:rem 109 

PRINT"{ 2 GIU'}SAVE"+CHR$(34);N$+CHR$ 
(34)+",8" : rem 9 

POKE631,13:POKE632,13:POKE198,2 

:rem 246 

PRINT"{HOME}": END : rem 141 
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SOFTWARE SELEZIONATO 

PER IL TUO 
C64z 

Una selezione di giochi rec e nti scelti tra 
Ì migliori disponibili sul mercato. Ciò che 
aspettavate per divertirvi. 




riverrà 

g?s£S-"-"" 


coo.ow*»' 

5s^vVa;*r4» ; “" <>9,o 

tì?sSs*r*- 


Speft. J.tort 

Viale Retteli!, 5 - 20124 Milano (MI) 
Tel. 02/6888228-683797-6880841 /2/3/ 


APPROFITTANE ! 

Ritaglia ed invia a vj .SOft 
Viale Restelli, 5 
20124 Milano 


Ordino il seguente software per il C 64 

cod._cod. -cod. - 

cod._- cod. -cod. - 

cod. _cod. -cod. - 

per un totale di L._ + l. 2.500 per contributo fisso di spese di spedizione. 

Scelgo la seguente modalità di pagamento: □ pagherò in contrassegno al postino. 

□ allego assegno (o contonti) 

□ verso l'importo sul C.C.P. n. 19445204 
intestato a J.soft (allego ricevuta) 


Nome- 

Cognome - 





di W. Bulawa 

trad. ed adatt. 

di R. Sacchi 



Stanchi di dover combattere con 
orde di invasori alieni? Ecco nn 
gioco diverso dai soliti, che pon 
mancherà di farvi divertire. E ri¬ 
chiesto Taso del joystick nella 
Porta 2. 


G uidate il ragno Webster nella sua 
disperata ricerca di cibo: muoven¬ 
dosi avanti e indietro sulla sua ragnatela 
appesa a un ramo, il ragno cerca di 
divorare le piccole cimici che si sposta¬ 
no nell’erba del prato sottostante. Al 
momento opportuno il ragno dovrà ca¬ 
larsi verticalmente dalla ragnatela e cer¬ 
care di addentare uno degli ignari ani¬ 
maletti. 

Sfortunatamente per il povero ragno, le 
cimici si muovono tanto più velocemen¬ 
te quanto più esse vengono divorate, e 
un temibile scorpione compare di tanto 
in tanto sulla superficie del prato, mi¬ 
nacciando sia le cimici che lo stesso ra¬ 
gno. 

Guadagnate 25 punti per ogni cimice 
divorata dal ragno, con un bonus di 50 
punti se riuscite a catturarne due in una 
volta sola. Disponete inizialmente di tre 
vite e ne perdete una ogni volta che il 
ragno entra in contatto con lo scorpio¬ 
ne. 

Mano a mano che il vostro punteggio 
aumenta cresce anche la velocità delle 
cimici e compaiono sullo schermo degli 



oggetti colorati per rendervi difficoltosa scorpioni...) che possono essere celati 
la ricerca delle cimici (o dei pericolosi dietro detti oggetti. 


Webster 


100 

110 

120 

1 30 

1 40 

1 60 
170 
1 80 
1 90 


GOSUBl130 :GOSUBl150:GOSUBl190:GOSUBl5 
80 :GOSUBl 370 :rem 233 

LV=LV+1:CR=0:IFLV=7THENl490 :rem 135 

ONLVGOSUB130,1400,1450,1460,1470,1480 
:IFCR>10THEN110 :rem 115 

POKE214,6:PRINT:POKE211,35:PRINTLV 

: rem 125 

POKE214,20 :PRINT:POKE211,33:PRINTSC 



: rem 

156 

P=PEEK(56320) :D=15-(PANDI 5) 

:rem 

1 94 

XP=XP+8*(D=4)-8*(D=8) 

: rem 

81 

YP=INT((-.208)*XP+227.2) 

: rem 

249 

IFXP>226THENXP=226 

: rem 

87 


200 

IFXP< 2 5THENXP= 25 

: rem 

231 

210 

POKEV,XP:POKEV+1 ,F 

: rem 

121 

220 

FR=PANDl6 

: rem 

243 

230 

IFFRO0THEN400 

: rem 

41 

240 

VE=V3:V3=VE/2:POKETl,17 

: rem 

117 


2 50 XX=INT(XP/8)-1 : FORI = FTOYPSTEP8:POKEV, 
XP :POKEV+1,1 : rem 253 

260 0=1064+XX+Z:POKEHl,I:POKELl,(1/3) 

:rem 180 

270 POKEO,66 :POKEO+CL,6 :rem 131 

280 IFB3=0THEN300 :rem 205 

290 GOSUB750 : rem 183 

300 Z = Z + 40:NEXTI : rem 213 
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310 A=PEEK(V+30)ANDl5:IF(AANDl)=lTHENGOSU 



B860:IFLS=0THENPOKETl,16: 

GOTOl 030 




: rem 

65 

320 

FORI = YPTOFSTEP-8 :POKEO,32 

: rem 

126 

330 

POKEV,XP :POKEV+1,1:POKEH1 

,(1/3):POKEL 


1,1 

: rem 

228 

340 

IFB3=0THEN360 

: rem 

208 

3 50 

GOSUB750 

: rem 

180 

360 

0=0-4 0 :NEXTI:Z = 0:POKETl,16 :rem 

73 

370 

REM 

: rem 

126 

380 

V3=VE 

: rem 

252 

390 

REM MOVIMENTO PULCE 1 

: rem 

232 

400 

IFBl O0THEN460 

: rem 

9 

410 

POKEV+21,PEEK(V+21)OR2 

: rem 

1 

420 

X=INT(Fi*RND(0)-F2 ) 

: rem 

18 

430 

IFABS(X)<>1THEN520 

:rem 

22 

440 

B1 = (-1 ) *(MI*(X=l)+MA*(X=- 

1 )): rem 

112 

450 

VI=X*S1 

: rem 

99 

460 

Bl=Bl+Vl:POKETl,17 

: rem 

241 

470 

IFBl<MIORBl>MATHENBl=0 :POKETl,16 




: rem 

223 

480 

Y1=INT((-.208)*Bl+233.2) 

:rem 

165 

490 

POKEV+2,Bl:POKEV+3,Yl:POKEV+40,2 




: rem 

1 57 

500 

POKEH1,INT(RND(0)*3+19):POKELl,INT(RN 


D(0)*1+9):POKETl,16 

: rem 

239 

510 

REM MOVIMENTO PULCE 2 

: rem 

227 

520 

IFB2O0THEN580 

:rem 

16 

530 

POKEV+21,PEEK(V+21)OR4 

: rem 

6 

540 

X=INT(Fi*RND(0)-F2) 

:rem 

21 

550 

IF ABS(X)<>1THEN640 

: rem 

28 

560 

B2=(-1 )*(MI*(X=l)+MA*(X=- 

• 1)): rem 

116 

570 

V2=X*S2 

:rem 

104 

580 

B2=B2+V2:POKET2,17 

: rem 

248 

590 

IFB2<MIORB2>MATHENB2 = 0:POKET2,1 6 




: rem 

230 

600 

Y2=INT((-.208)*B2+233.2) 

: rem 

161 

61 0 

POKEV+4,B2:POKEV+5,Y2:POKEV+4 1 ,3 




: rem 

159 


620 POKEH2,INT(RND(0)*3+25):POKEL2,INT(RN 



D(0)*1+9):POKET2,16 

: rem 

242 

630 

REM MOVIMENTO PULCE 3 

: rem 

231 

640 

IFB3O0THEN71 0 

: rem 

1 5 

650 

X=INT(Fi*RND(0)-F2) 

: rem 

23 

660 

IFABS(X)<>1THEN160 

: rem 

27 

670 

CR=CR+1 :IFCR>10ANDLV=1THEN8 50 




: rem 

12 

680 

IFCR>10ANDLV>1THENGOSUB850 :GOTOl10 



: rem 

1 50 

690 

B3=(-l)*(MI*(X=l)+MA*(X= 

-1)): rem 

1 21 

700 

V3=X*S3 

: rem 

101 

710 

GOSUB750 

: rem 

180 

720 

GOTOl60 

: rem 

105 

730 

REM FINE DEL CICLO PRINCIPALE 




: rem 

198 

740 

REM 

: rem 

127 

750 

POKET3,129 

: rem 

26 

760 

B3=B3+V3 

: rem 

1 20 

770 

IFB3<MIORB3>MATHENB3=0 

: rem 

103 

780 

Y3=INT((-.208)*B3+233.2) 

: rem 

172 

790 

POKEV+6,B3:POKEV+7,Y3:POKEV+42,6 




: rem 

178 

800 

POKEH3,17:POKEL3,5 :POKET3,128 




: rem 

21 4 

810 

IFB3 = Bl ANDFROOTHENBl =0: 

POKEV+40, 

0:PO 


KEV+2,Bl:POKETl,16 

: rem 

87 

820 

IFB3 = B1ANDFR=0THENB1=0 :POKEV+4 0,0 

: POK 


EV+2,Bl 

: rem 

1 54 

830 

IFB3=B2THENB2=0:POKEV+41 

,0 :POKEV+4,B2 


:POKET2,16 

: rem 

75 


840 

REM MUSICA 

: rem 

66 

850 

RETURN 

: rem 

125 

860 

BN = 0:FORX=1T03:BG=2 tX 

: rem 

64 

870 

IF(AANDBG)THENGOSUB900 

: rem 

100 

880 

NEXT:IFBN=2THENSC=SC+50 

:rem 

207 

885 

IFBN=3THENSC=SC+100 

: rem 

136 

890 

POKE214,20:PRINT:POKE21 1,33: 

PRINTSC:R 


ETURN 

: rem 

1 94 

900 

IFBG=8THENGOSUB960:RETURN 

: rem 

142 

91 0 

IFPEEK(V+2*X)> = XP-2 4ANDPEEK(V+2 *X)< = X 


P+24THENGOSUB950:SC=SC+25:POKEV+2 

*X,0 



: rem 

54 

920 

IFPEEK(V+2)=0THENB1 =0 

: rem 

207 

930 

IFPEEK(V+4)=0THENB2 = 0 :POKET2 

,16 




: rem 

85 

940 

RETURN 

: rem 

125 

950 

BN=BN+1:POKEV+21,PEEK(V+21)ANDl5- 

BG : R 


ETURN 

: rem 

51 

960 

IFPEEK(V+2*X)> = XP-2 4ANDPEEK(V+2*X)<=X 


P+2 4THENLS=LS-1:GOTO980 

: rem 

219 

970 

RETURN 

: rem 

128 

980 

REM RAGNO MANGIA LA PULCE 

:rem 

175 

990 

FORI = 8T02STEP-2 :POKE532 81 , I : 

POKE53280 


,1 

: rem 

1 20 


1000 PRINT"{HOME}{WHT}{ 9 DES}VITE RIMANE 
NTI{ 2 SPAZI}";LS:NEXT itera 225 

1010 FORI=1T0700:NEXT:FORI=1024TO1055:POK 
EI+CL,5:POKEI,160:NEXT :rera 170 

1020 POKE53280,0 :POKE53281 ,0 : RETURN 

itera 50 

1030 REM SPIDER LOST ALL LIVES :rem 13 
1040 0=0:XX=0:Z=0:FORI=0TO3:POKEV+21,PEEK 
(V+21}AND(15-2 TI) :POKEV+2*1,0 :NEXT 

:rem 77 

1050 PRINT"{CLR}{ 6 GIU'}"SPC(15)"GAME OV 
ER" : rem 199 

1060 B=13-LEN(STR$(SC))/2:PRINT" 

{ 2 GIU'}"SPC (B)" { 3 SPAZI}PUNTEGGIO 
: ";SC :tem 19 

1070 PRINT"{ 2 GIU'}"SPC(12)"{RVS}FUOCO 

{OFF} PER INIZIARE" : rem 251 

1080 PRINT"{ 2 GIU'}"SPC(15)"{RVS}N{OFF} 
PER FINIRE" : rem 51 

1090 FR=PEEK(56320)ANDl6:GETA$:IFA$=""AND 
FROOTHENl 090 :rem 139 

1100 IFFR=0THEN100 itera 22 

1110 IF A$ = " N "THENEND : rem 140 

1120 GOTOl090 itera 199 

1130 PRINT"{CLR}XP=100:CL=54272:V=53248 
:SC=0:LV=0:LS=3:Bl=0 :B2 = 0:B3 = 0:F=56 

:rem 254 

1140 Vl=0:V2=0:V3=0:Sl=4:S2=4:S3=12:MI=0: 

MA=255:F1=51:F2=25:RETURN :rera 122 

1150 SD=CL:FORL=SDTOSD+24:POKEL,0:NEXT:Tl 
=SD+4:Dl=SD+5:Rl=SD+6:Hl=SD+1:Ll=SD 

:rem 245 


1160 T2=Tl+7:T3=T2+7:D2=Dl+7:D3=D2+7:R2=R 
1 +7:R3=R2 + 7:H2=Hl+7:H3=H2+7:L2=Ll+7 

:rem 18 

1170 L3=L2+7:POKE54296,15:POKEDl,17:POKER 
1 ,241 :POKED2,17:POKER2,241 :POKED3,17 

:rem 34 

1180 POKER3,241 : RETURN itera 91 

1190 POKE53281,0 :POKE532 80,0 : FORI = 1 02 4TO1 
056 :POKEI+CL,5 :POKEI,160:NEXT 

:rem 184 

1 200 FORI = 1 984T01 743STEP-36:POKEI+CL,1 : PO 
KEI,233:NEXT : rem 2 

1210 FORI = l 985TO! 733STEP-36 :POKEI+CL,2 : PO 
KEI,160:NEXT :rem 3 
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1 220 FORI = l 986T0174 4STEP-36 :POKEI+CL,3 : PO 
KEI,160:NEXT :rem 8 

1 230 FORI = 1 987T01705STEP-36 :POKEI+CL,4 : PO 
KEI,160:NEXT :rem 8 

1 240 POKEl 692.CL,7 :POKE1692,201 :FORI=1693 
TOT 696 :POKEI+CL,7:POKEl,160:NEXT 

:rem 143 

1 250 POKEl 732+CL,7:POKEl 732,221 : FORI-1733 
TOl 736 :POKEI+CL,7:POKEl,160:NEXT 

:rem 126 

1260 POKEl772+CL,7:POKEl772,221:FORI-1773 
TOl 776 :POKEI+CL,7 :POKEl,160:NEXT 

:rem 143 

1 270 FORI-1 988TO2016 :POKEI+CL,15 :POKEl,16 
0 :NEXT:FORI = 1 952T01976 :POKEI+CL,15: 

:rem 147 

1 2 80 POKEl,160 :NEXT:FORI-1916TOl 936:POKEl 
+CL,15:POKEl,160 :NEXT:FORI = 1 880TO189 
6: :rem 134 

1 290 POKEI+CL,15:POKEl,160 :NEXT:FORI = 184 4 
TOl 856 :POKEI+CL,15 :POKEl,160:NEXT 

:rem 89 

1 300 FORI = 1 80 8T01816 :POKEI+CL,15:POKEl,16 
0 :NEXT : rem 97 

1310 FORI-1056T01063 :POKEI+CL,12:POKEl,10 
2 :POKE1 + 960+CL,12 :POKEI + 960,102:NEXT 

:rem 80 

1320 FORI-1056T02016STEP40:POKEI+CL,12:PO 
KEI,102 :POKEI + 7+CL,12 :POKEI + 7,102 : NE 
XT :rem 32 

1 330 RESTORE: FORI = 1100TO1260STEP40 : READA : 

POKEI+CL,1:POKEI,A:NEXT :rem 88 

1340 FORI=1660TO1820STEP40:READA:POKEI+CL 
,1 :POKEl,A:NEXT : rem 8 

1350 DATA 12,5,22,5,12,19,3,15,18,5 

:rem 164 

1360 RETURN :rem 170 

1 370 POKEV+21,9:POKE53275,1 4 :rem 67 

1380 FORI=0TO3:POKE1+2040,192+I:NEXT 

:rera 151 

1390 RETURN :rem 173 

1400 REM REGOLAZIONI PER LIVELLO 2 

:rem 28 

1410 SI-5:F1=31:F2=15 :rem 99 

1 420 FORI-1 904TO1 907 :POKEI+CL,INT(RND (0)* 
15+1):POKEI,160:NEXT :rem 137 

1 430 FORI = 1 94 4T01947 :POKEI+CL,INT(RND(0)* 
15+1):POKEl,160:NEXT : rem 146 

1 440 FORI = l 984T01987 :POKEI+CL,INT(RND(0)* 
15 + 1):POKEl,160 :NEXT:RETURN : rem 181 

1450 Sl=6:Fl=31:F2=15:RETURN :rem 130 

1460 S2=6:RETURN :rem 221 

1470 Sl=8:S3=16:Fl=21:F2=l0:RETURN 

:rem 228 

1480 Sl=10:S2=10:S3=20:Fl=l7:F2=8:RETURN 

:rem 66 

1 490 FORI-0TO3:POKEV+21 ,PEEK(V+21)AND(15- 
211):POKEV+ 2 * 1,0 :NEXT :rem 8 

1500 PRINT"tCLR}{ 6 GIU’}{ 9 DES)HAI VINT 
O LA PARTITA" : rem 153 

1510 PRINT" { 2 GIU'H 9 DES} { 3 SPAZI}PUN 
TEGGIO: ";SC :rem 124 

1 520 PRINT"{ 2 GIU 1 }{ 9 DES){RVS}FUOCO 

{OFF} PER INIZIARE" :rem 34 

1 530 PRINT" { 2 GIU'H 9 DES} {RVS}N{OFF} P 
ER FINIRE" : rem 87 

1540 FR-PEEK(56320)AND16 :GETA$:IFA$ = ""AND 
FROOTHENl 540 :rem 139 

1550 IFFR-0THEN100 :rem 31 

1 560 IFA$ = "N"THENEND : rem 149 


1 570 

GOTOl540 

:rem 

208 

1 580 

1=12288 

: rem 

89 

1 590 

READA:IFA-256THENRETURN 

: rem 

31 

1 600 

POKEl 

,A:I = 1 + 1 :GOTOl590 

:rem 

83 

1610 

DATA 

224,126,7,96,255,6 

: rem 

103 

1 620 

DATA 

39,255,228,31,255,248 

:rem 

1 

1630 

DATA 

1,255,128,193,255,131 

: rem 

246 

1 640 

DATA 

199,255,227,63,255,252 

:rem 

57 

1 650 

DATA 

1,255,128,7,255,224 

: rem 

149 

1 660 

DATA 

31,255,252,33,255,130 

: rem 

242 

1 670 

DATA 

97,255,134,225,255,134 

: rem 

53 

1 680 

DATA 

15,255,243,31,255,248 

:rem 

254 

1 690 

DATA 

16,60,4,24,126,4 

:rem 

250 

1 700 

DATA 

24,219,6,120,219,7 

: rem 

92 

1710 

DATA 

0,126,0,0,0,0 

: rem 

72 

1 720 

DATA 

0,0,0,0,3,255 

: rem 

79 

1 730 

DATA 

192,31,255,248,127,255 

: rem 

49 

1 740 

DATA 

254,151,255,233,32,0 

: rem 

1 89 

1750 

DATA 

4,64,0,2,128,0 

: rem 

142 

1 760 

DATA 

1,192,0,3,192,0 

: rem 

192 

1 770 

DATA 

3,192,0,3,192,0 

: rem 

195 

1 780 

DATA 

3,192,0,3,192,0 

: rem 

196 

1 790 

DATA 

3,128,0,1,64,0 

: rem 

1 44 

1 800 

DATA 

2,32,0,4,16,0 

: rem 

81 

1 81 0 

DATA 

8,24,0,24,252,0 

: rem 

189 

1 820 

DATA 

63,0,0,0,0,0 

: rem 

26 

1 830 

DATA 

0,0,3,255,192,31 

: rem 

241 

1 840 

DATA 

255,248,127,255,254,151 

: rem 

101 

1 850 

DATA 

255,233,32,0,4,64 

: rem 

43 

1 860 

DATA 

0,2,128,0,1,192 

: rem 

191 

1870 

DATA 

0,3,192,0,3,192 

: rem 

1 96 

1 880 

DATA 

0,3,192,0,3,192 

: rem 

197 

1 890 

DATA 

0,3,192,0,3,128 

: rem 

197 

1 900 

DATA 

0,1,64,0,2,32 

:rem 

82 

1 91 0 

DATA 

0,4,16,0,8,24 

: rem 

90 

1 920 

DATA 

0,24,252,0,63,0 

: rem 

1 86 

1 930 

DATA 

15,0,240,24,129,24 

:rem 

87 

1 940 

DATA 

48,0,12,240,0,15 

: rem 

239 

1 950 

DATA 

152,129,25,207,0,243 

: rem 

194 

1960 

DATA 

96,0,6,31,255,248 

: rem 

57 

1970 

DATA 

63,255,254,127,255,254:rem 

56 

1 980 

DATA 

255,255,255,127,255,254 

: rem 

109 

1 990 

DATA 

49,129,140,99,0,198 

: rem 

1 71 

2000 

DATA 

66,0,66,132,0,33 

: rem 

236 

2010 

DATA 

132,0,33,132,0,33 

: rem 

17 

2020 

DATA 

66,0,66,99,0,198 

: rem 

6 

2030 

DATA 

247,129,239,0,0,256 

: rem 

143 
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SAI CHE QUESTA PALLINA 
PUÒ’ FARE DI TE UN COMPUTER ARTIST? 






W 

Questa speciale pallina avvolta 
m un loglio di Teflon rivestito in silicone 
permette al mouse di spostarsi 
con grande precisione e in perfetto silenzio. 


HYPHEN 30 

L’UNICO MOUSE DEGNO DEL COMMODORE 
FINALMENTE ANCHE IN ITALIA. 



(""inviatemi (barrare le caselle opportune). 

I Tutti i prezzi comprendono IVA e spese di spedizione 


□ Mouse Hyphen 30 


-_ 

L. 195.000 


Il software, fornito su cassetta, 
è completamente guidato tramite 
ICONE, ossia simboli grafici racchiusi 
in un quadrato a rappresentare 
le diverse funzioni. 
Per selezionare una funzione basta far 
scivolare il mouse sul piano della 
scrivania fino a portare il cursore sopra 
la icona prescelta e quindi premere 
brevemente il pulsante di destra. 


Non occorre conoscere 
linguaggi 

di programmazione: 
porta a spasso il mouse 
e fai click al momento 
opportuno! 

L’uso di Hyphen 30 risulta talmei 
immediato e naturale da non poterne 
fare a meno: computer art, CAD, 
disegno industriale, grafici di ogni tipo 
sono solo alcune delle applicazioni 
possibili. E i risultati faranno impallidire 
i fratellini maggiori a 32 bit. 

Inoltre, Hyphen 30 è l’unico mouse per 
Commodore 64 ad essere totalmente 
compatibile con il mouse standard del 
Commodore 128. 


Non perdere tempo. 
Solo fino al 31/3/1986 


Pagherò al postino alla consegna 


□ Joycard 


L. 25.000 


puoi risparmiare 11.000 lire. 


□ Mouse + Joycard L. 209.000 


Ritaglia e spedisci oggi stesso a: 


Noma/Cognome 


J. Soft srl 

Viale Restelli 5 - 20124 Milano 
Tel. 02/6880841-3 


Indirizzo 


CAP/Città 


Cod Fise (solo se si desidera Iattura) 


Data 


l_ 


Firma 















di G.W. Miller 

trad. ed adatt. 

di L. Priotto 




Ecco un utile programma per gli 
appassionati di meteorologia 
che permette di effettuare previ¬ 
sioni del tempo sulla base di un 
archivio dati su disco. 


T utti conoscono il sistema italiano 
Afrodite di previsione meteorologi¬ 
ca: in base ai dati provenienti dai satelli¬ 
ti un grosso mainframe elabora la previ¬ 
sione utilizzando un sofisticato modello 
matematico, basandosi inoltre su una 
vastissima banca dati riguardante le 
condizioni meteorologiche passate. 

Con il programma presentato anche il 
vostro piccolo C64, se munito di siste¬ 
ma a dischi, sarà in grado di effettuare 
le previsioni del tempo con un discreto 
grado di attendibilità. 

Il principio su cui si basa la previsione 
meteorologica di Mini Afrodite è quello 
del confronto con i dati contenuti in un 
apposito archivio su disco; il program¬ 
ma di gestione dell’archivio fa natural¬ 
mente parte dello stesso Mini Afrodite 
e utilizza i file relativi per poter avere 
un rapido accesso a una grande quanti¬ 
tà di dati. 

Dato il principio su cui si basano le pre¬ 
visioni di Mini Afrodite, esse inizieranno 
ad essere congruenti con la situazione 
meteorologica effettiva soltanto quando 
l’archivio conterrà un numero sufficien¬ 
te di dati. Più l’archivio sarà pieno di 
dati, più le previsioni saranno da consi¬ 
derarsi attendibili, mentre se l’archivio 
contiene soltanto pochi dati (sull’ordi¬ 
ne), per intenderci, di soltanto 15-20 
giorni) sarà molto probabile ottenere 
sempre e soltanto la stessa previsione, 
qualunque sia la situazione meteo effet¬ 
tiva. 

Naturalmente, per inserire dei dati cor¬ 
retti nel programma dovrete munirvi di 
adatti strumenti di misurazione: sono 
fondamentali un barometro per misura¬ 
re la pressione atmosferica, un igrome¬ 
tro per la misurazione dell’umidità rela¬ 
tiva dell’aria, un termometro per le tem¬ 


perature massime e minime della gior¬ 
nata, un anemometro per valutare la 
velocità del vento e infine un pluviome¬ 
tro per misurare l’intensità delle preci¬ 
pitazioni. 

Uso del programma 

Innanzi tutto, prima di dare il RUN a 
Mini Afrodite, assicuratevi di avere col¬ 
legato ed acceso il disk drive e che esso 
contenga un dischetto già formattato. 
L’utilizzo del programma è estrema¬ 


mente semplice, in quanto basta rispon¬ 
dere alle domande poste dal computer 
e selezionare le opzioni desiderate tra¬ 
mite comodi menu. 

Come già detto, le previsioni effettuate 
dal programma potranno considerarsi 
attendibili soltanto dopo che avremo in¬ 
serito nell’archivio una notevole quanti¬ 
tà di dati relativi a varie giornate. Si 
inizierà quindi ad utilizzare l'opzione 1 
del menu principale per l’inserimento 
dei dati: il computer inizierà a porre 
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delle domande relative ai vari parame¬ 
tri meteorologici, visualizzando anche la 
forma con cui esso si aspetta l’inseri¬ 
mento attraverso degli zeri al posto del 
dato da immettere. Nella richiesta della 
pressione barometrica, ad esempio, il 
computer visualizzerà 000.0: ciò signifi¬ 
ca che il dato da inserire dovrà avere 
tre cifre intere e una decimale; muoven¬ 
doci sopra gli zeri con il cursore, potre¬ 
mo inserire nell'archivio il dato di nostro 
interesse. 

Al termine dell’inserimento dati il com¬ 
puter mostrerà una tabella riassuntiva 
e domanderà se i dati sono corretti. In 
caso affermativo essi verranno inseriti 
permanentemente nell’archivio. 


Il programma, prima di essere mandato 
in esecuzione, dovrà inoltre essere “per¬ 
sonalizzato” con i dati relativi alla zona 
in cui si abita. 

Questi dati devono essere inseriti nelle 
linee DATA 3400-3510 e riguardano 
rispettivamente i dodici valori mensili: 
della temperatura media massima (li¬ 
nee 3410-3420), della temperatura me¬ 
dia minima (linee 3440-3450), relativi 
alle precipitazioni medie (linee 3470- 
3480) e infine relativi alle nevicate me¬ 
die (linee 3500-3510) espresse in mm. 
II primo dato per ogni gruppo è riferito 
al mese di Gennaio, e l’ultimo al mese 
di Dicembre. 


L'opzione 0 del menu principale per¬ 
mette di dirigere l’output su stampante 
piuttosto che su video, mentre le altre 
opzioni del programma sono totalmente 
guidate da domande poste dal program¬ 
ma stesso, e non richiedono particolari 
spiegazioni. 

Infine, ricordate che fino a quando non 
ci sarà su disco un numero di dati suffi¬ 
ciente il programma fornirà sempre la 
stessa previsione, che i valori di pressio¬ 
ne atmosferica sono espressi in mm di 
mercurio, la temperatura in gradi centi- 
gradi, la velocità del vento in km/h, 
l’umidità relativa in valore percentuale 
e le precipitazioni in mm. 


Mini Afrodite 

100 REM “MINI AFRODITE** : rem 152 

110 REM **UN PROGRAMMA PER EFFETTUARE ** 

:rem 57 

120 REM **LE PREVISIONI DEL TEMPO** 

:rem 18 

130 POKE53280,0:POKE53281,0:POKE646,1 

:rem 79 

140 DIMINS(720),HO%(720),MH(12),ML(12),AR 
(12) ,AS(12),NO%(720) ,D%(50) :rem 222 

150 BL$ = "{ 40 SPAZI}" : rem 201 

160 FORT=1TOl2 :READMH(T) :NEXT:FORT=lTOl2 : 

READML(T):NEXT :rem 69 

170 FORT=1TOl2:READAR(T):NEXT:FORT=1TOl2: 

READAS(T):NEXT : rem 63 

180 FORT=lT08:READDIS(T):NEXT :rem 66 

190 OPEN!5,8,15:OPENl,8,2,"RC.INDEX,S,R" 

:rem 47 

200 INPUT#15,A:IFA=62THENGOSUB330:GOTOl18 
0 :rem 73 

210 INPUT#1,RC%,TR%,HD$, CD$ ,MP$,AP$,MS$,A 


S$:GOSUB330:IFRC%=720THENRC%=0 




: rem 

1 68 

220 

o 

o 

3 

OD 

o 

: rem 

151 

230 

OPEN4,4,7 :CMD4 : RETURN 

: rem 

26 

240 

PRINT#4:CLOSE4: RETURN 

: rem 

120 

250 

PRINT#15,"P"+CHR$(2)+CHRS(LB)+CHR$(HB 


)+CHRS(1): RETURN :rem 24 6 

260 HB=INT(Xl/256) :LB=X1-HB*256 : RETURN 

:rem 22 


2 70 RC$ = "":FORA=1TOl00 :GET# 1 ,A$:RC$ = RC$+A 



$ :NEXT: RETURN 

: rem 

226 

280 

PRINT#15,"10":RETURN 

: rem 

179 

290 

CLOSE1:OPENl,8,2,"WX.DATA,L, 

"+CHR$(10 


0) : RETURN 

: rem 

21 2 

300 

CLOSE15:OPENl5,8,15:GOSUB280 

:RETURN 



:rem 

165 

310 

GETGS:IFG$=""THEN310 

: rem 

87 

320 

RETURN 

:rem 

117 

330 

CLOSEl:CLOSEl5:RETURN 

: rem 

109 

340 

MO=0:PRINT"{CLR}{GIU'}NUMERO 

MESE 

PER 


IL RAPPORTO"; :INPUTMO 

: rem 

99 


350 YR=0:PRINT"{CLR}(GIU 1 }ANNO PER IL RAP 
PORTO";:INPUTYR :rem 174 

360 IFMO<1ORMO>l2THEN340 :rem 213 

370 PRINT" {CLR} { 8 GIU’H 13 SPAZI }ATTEND 
ERE.." :rem 254 

380 HI=0:L0=200:BA=0:RA=0:SN=0:WS=0:DE=0: 

ED=0:RH=0:BL=838.2:PC=0 :rem 29 

390 PRINT"{GIU'}{ 8 SPAZI}PREPARAZIONE R 
APPORTO":GOSUB300:GOSUB290 :rem 39 


400 FORXl=1TOTR%:GOSUB260:G$ = "":GOSUB250 

:rem 169 

410 FORA=1T06:GET#1,A$:G$ =G$ +A$:NEXT 

:rem 89 

420 IFYROVAL (MID$ (G$,5,2) ) THEN440 

:rem 190 

430 IFMO=VAL(MID$(G$,3,2))THENGOSUB690 

:rem 248 

440 NEXT:CLOSEl:GOSUB280:CLOSEl5:rem 34 
450 IFLO=200THENPRINT"{CLR}{ 5 GIU'}NON E 
SISTONO DATI PER QUESTO MESE.":GOT06 8 
0 :rem 172 

460 IFPR=1THENGOSUB230 :rem 125 

470 PRINT"{CLR}{RVS} RAPPORTO MENSILE PER 
:{OFF}";MO;"/"YR : rem 120 

480 PRINT"NORM. ALTO:";MH(MO)PRINT" 

{ 3 SPAZI} NORM. BASSO:”ML(MO) 

:rem 230 

490 PRINT"PIOGGIA NORM:"AR(MO);:PRINT" 

{ 2 SPAZI}NEVE NORM{ 2 SPAZI}: "AS(MO 
) : rem 207 

500 PRINT"{GIU'}LETTURA BAROMETRICA PIU' 
ALTA:"BA : rem 53 

510 PRINT"IL "MID$(DAS(1),1,2)"/"MID$(DA$ 

(1) ,3,2)"/"MID$(DA$(l),5,2) :rem 135 
520 PRINT"LETTURA BAROMETRICA PIU’ BASSA: 

"BL :rem 121 

530 PRINT"IL "MID$(DA$(2),1,2)"/"MID$(DA$ 

(2) ,3,2)"/"MID$(DA$(2),5,2) :rem 140 

540 PRINT"TEMPERATURA PIU' ALTA."HI 

:rem 62 

550 PRINT"IL "MID$(DA$(3),1,2)"/"MID$(DA$ 

(3) ,3,2)”/"MID$(DA$(3),5,2) :rem 145 

560 PRINT"TEMPERATURA PIU' BASSA."LO 

:rem 100 

570 PRINT"IL "MID$(DA$(4),1,2)"/"MID$(DA$ 

(4) ,3,2)"/"MID$(DA$(4),5,2) :rem 150 
580 PRINT"VENTO MAGGIORE:"WS" DA ";DI$(WD 

) :rem 74 

590 PRINT"IL "MID$(DA$(5),1,2)"/"MID$(DA$ 

(5) ,3,2)”/"MID$(DA$(5),5,2) :rem 155 
600 PRINTPC;"GIORNI CON PRECIPITAZIONI." 

:rem 53 

610 PRINT" PI OGGI A PIU' INTENSA."RA 

:rem 18 

620 PRINT"IL "MIDS(DAS(6) ,1,2) "/"MID$(DA$ 

(6) ,3,2)”/"MID$(DA$(6),5,2) : rem 152 

630 PRINT"NEVICATA PIU' LEGGERA."SN 

:rem 36 

640 PRINT"IL "MID$(DAS(7),1,2)"/"MID$(DAS 

(7) ,3,2)"/"MID$(DA$(7),5,2) :rem 157 

650 PRI NT" UMIDITA ' PIU’ ALTA."RH 
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: rem 

189 

660 

PRINT"IL "MID$(DA$(9),1,2)" 

/"MIDS(DA$ 


(9),3,2)"/"MIDS(DA$(9),5,2) 

: rem 

165 

670 

IFPR=1THENGOSUB240 

: rem 

129 

680 

GOSUB2430:RETURN 

: rem 

1 

690 

GOSUB250:GOSUB270 

: rem 

9 

700 

IFBACVAL(MIDS(RCS,7,5))THENBA=VAL(MID 


S(RCS,7,5)):DA$(1)=MID$(RCS 

,1,6) 




: rem 

61 


710 IFBL>VAL(MID$(RCS,7,5))THENBL=VAL(MID 
$(RCS,7,5)):DAS(2)=MID$(RC$,1,6) 


:rem 87 

720 IFHI<VAL(MID$(RC$,13,3))THENHI=VAL(MI 
D$(RC$,13,3)):DA$(3)=MID$(RC$,1,6) 

:rem 179 

730 IFLO>VAL(MIDS(RCS,16,3))THENLO=VAL(MI 
D$(RC$,16,3)):DA$(4)=MID$(RC$,1,6) 

:rem 209 

740 IFWS<VAL(MID$(RCS,20,3))THENWS=VAL(MI 
D$(RC$,20,3)):WD=VAL(MIDS(RC$,19,1)) 

:retn 185 

750 IFWS=VAL(MID$(RCS,20,3))THENDA$(5)=MI 
D$(RCS,1,6) : rem 157 

760 IFRA<VAL(MID$(RCS,23,5))THENRA=VAL(MI 
D$(RCS,23,5)):DA$(6)=MID$(RC$,1,6) 

:rem 196 

770 IFVAL(MIDS(RCS,23,5))<>0THENPC=PC+1 

:rem 243 

780 IFSN<VAL(MID$(RCS,28,4))THENSN=VAL(MI 
D$(RCS,28,4)):DAS(7)=MID$(RC$,1,6) 


960 G0SUB310 :IFGS = "N"THENl130 :rem 170 

970 IFG$<>"C"THENl050 :rem 144 

980 PRINT"{CLR}{ 5 GIU'}ULTERIORI OPZIONI 
DISPONIBILI:" : rem 49 

990 PRINTTAB(7)"{GIU'}{RVS} 1. (OFF) 


{ 2 SPAZI)RICERCA DATA PARTICOLARE 



““ ““ 

:rem 

141 

1 000 

PRINTTAB(7)"{GIU’}{RVS} 2. 

{OFF} 



{ 2 SPAZI}GENERA RAPPORTO 

MENSILE 



: rem 

1 54 

1010 

PRINTTAB(7)"{GIU'}{RVS} 3. 

{OFF} 



{ 2 SPAZI}RITORNA AL MAIN 

MENU 




: rem 

108 

1020 

GOSUB310:G=ASC(G$)- 48:ONGGOTOl0 50 

,34 


0,1040 

:rem 

146 

1030 

GOTOl020 

: rem 

192 

1 040 

RETURN 

: rem 

165 


1050 PRINT"{CLR}{ 14 SPAZI){RVS) RICERCA 
DATA : rem 45 

1060 PRINT" INSERISCI DATA (GIORNO,MESE,AN 
NO)" : rem 40 

1070 PRINT"SEPARA I TRE DATI CON UNA VIRG 
OLA":INPUTDAS,MO$,YR$ :rem 93 

1080 IFLEN(DA$)< 2THENDAS = "0"+DA$: rem 252 
1090 IFLEN(MO$)<2THENMO$ = "0"+MO$: rem 66 

1100 IFLEN(YR$)<2THENYR$ = "0"+YR$: rem 103 
1110 SE$=DA$+MO$+YR$:GOSUB850:IFR=0THENGO 
SUB2430:RETURN :rem 187 

1120 GOSUB2720:GOSUB2430:RETURN :rem 172 

1130 PRINT"{CLR)":GOSUB300:GOSUB290:RCS*" 
" :rem 63 

1140 PRINT"NUMERO RECORD PER RICERCA?":IN 
PUTR: IFR>TR%THENGOSUBl 1 7ff:GOTOl 1 30 

:rem 59 

1150 XI=R:GOSUB260:GOSUB250:GOSUB270:GOSU 
B2 80 :GOSUB330:GOSUB2 72 0 :GOSUB2 4 30 

:rem 129 

1160 RETURN :rem 168 

1170 GOSUB330:PRINT"{CLR}NUMERO NON CONGR 

UENTE":GOSUB2 4 30 : RETURN :rem 85 


: rem 235 

790 IFRH<VAL(MIDS(RCS,32,3))THENRH=VAL(MI 
D$(RCS,32,3)):DA$(9)=MID$(RC$,1,6) 

: rem 212 

800 H=VAL(MIDS(RCS,13,3)):L=VAL(MID$(RCS, 
16,3)) : rem 57 

810 TP=18.3-INT((H+LJ/2):IFSGN(TP)«-1THEN 
TP=INT((H+L)/2)-18.3:GOTO830: rem 33 
820 DE=DE+TP:GOTO840 :rem 199 

830 ED=ED+TP :rem 185 

840 RETURN :rem 124 

850 PRINT"{CLR}{GIU’}{ 6 SPAZI}RICERCA 

{ 3 SPAZI)DI{ 2 SPAZI)"DAS"7"MOS"/"YR 
$ :rem 54 

860 GOSUB300:GOSUB2 90:R=0:FORPT=lTOTR%:XI 
= PT:GOSUB 2 6 0 :RCS = "" : rem 10 

870 GOSUB250:RCS = "": FORACIT06:GET#1,A$:RC 



$=RCS+A$:NEXT 

: rem 

196 

880 

IFSE$=RC$THENR=PT:PT=TR% 

:RC$="" 

: rem 

157 

890 

NEXT 

: rem 

224 

900 

IFR=0THEN930 

: rem 

178 

91 0 

A$="":GOSUB250:GOSUB270 

: rem 

36 

920 

GOSUB330:RETURN 

: rem 

203 


930 GOSUB330:PRINT"{ 8 SPAZIJRECORD NON T 
ROVATO.":RETURN :rem 94 

940 F=1 :PRINT"{CLR){RVS}N{OFF} RICERCA IN 
BASE AL N. DEL RECORD" : rem 169 

950 PRINT"{GIU 1 }{RVS)C{OFF} ALTRE OPZIONI 
" :rem 135 


1180 PRINT"":PRINTCHR$(14):FL-0:F=0:Q=FRE 
(0) :rem 101 

1190 PRINT" {CLR} { 3 GIU’H 13 SPAZI {MINI 
AFRODITE : rem Tl7 

1 200 PRINT"{ 2 GIU 1 } { 4 SPAZI){RVS} 1 

{off } { 5 spazi Inserisci nuovi dati 

:rem 69 

1210 PRINT"{GIU'}{ 4 SPAZl){RVS) 2 {OFF} 

{ 5 spazi Previsioni :rem 226 

1220 PRINT"{GIU T ){ 4 SPAZI){RVS} 3 {OFF} 

{ 5 SPAZI)RICERCA DATI : rem 119 

1230 PRINT"{GIU'}{ 4 SPAZI){RVS} 4 {OFF} 

{ 5 SPAZIJMEMORIA LIBERA : rem 151 

1240 PRINT"{GIU T }{ 4 SPAZI){RVS} 5 {OFF} 

{ 5 SPAZI}FINE PROGRAMMA : rem 40 
1250 PRINT"{GIU'}{ 4 SPAZI}{RVS} 0 {OFF} 

{ 5 SPAZI}OPZIONE STAMPANTE:rem 45 
1260 PRINT"{GIU'}{ 5 SPAZI}";TR%;" RECORD 
NEL DATABASE.":PRINT : rem 248 

1270 IFPR=lTHENPRINT"{ 12 SPAZI}{RVS} STA 
MPANTE ON" : rem “69 

1280 IFPR=0THENPRINT"{ 12 SPAZI}{RVS} STA 
MPANTE 0{ 2 F} " : rem “ 3 

1 290 GOSUB3ltf:G=VAL(G$) :ONGGOSUBl 340,3050 



,940,3220,3290 

: rem 

77 

1 300 

IFG$ = "0"THENGOSUBl 320 

: rem 

228 

1 31 0 

GOTOl180 

: rem 

200 

1 320 

IFPR=0THENPR=1 :RETURN 

: rem 

189 

1 330 

IFPR=1THENPR=0:RETURN 

: rem 

190 
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1 340 PRINT"{CLR){GIU'} INSERISCI DATA: 

{ 2 G},{ 2 M},{ 2 A} (ES. 0T,12,86)" 

:rem 93 

1350 PRINT"SEPARA I TRE DATI CON VIRGOLE. 
": INPUT"{ 2 SPAZI}00,00,00{ 10 SIN} 

";DA$,MO$,YR$ : rem 197 

1 360 IFLEN(DA$)< 2THENDA$ = "0"+DA$: rem 253 
1 370 IFLEN(MO$)< 2THENMO$="0"+MO$: rem 67 
1 380 IFLEN( YR$)< 2THENYRS = "0"+YR$: rem 113 
1390 IFRC%»0THEN1440 :rem 123 

1 400 GOSUB300:GOSUB2 90 : XI=RC%:GOSUB2 60:GO 
SUB250 : rem 138 

1410 G$="":F0RA=1T06:GET#1,A$:G$=G$+A$:NE 
XT:GOSUB330 : rem 0 

1420 IFMIDS(G$,3,2)<MOSTHENMP$="00":MS$=" 
00 " :rem 121 

1 430 IFMIDS(G$,5,2)<YR$THENAP$="00":MP$=" 
00":MS$-"00":AS$="00" :rem 46 

1440 BA$="":GOSUB3070:GOSUB3100 :rem 243 
1 450 HI$="": INPUT"{CLR}{GIU'}MASS IMA TEMP 
ERATURA:{ 2 SPAZl}+00{ 5 SIN}";HI$ 

:rem 205 

1 460 LOS-"":INPUT"{CLR}{GIU'}MINIMA TEMPE 
RATURA:{ 2 SPAZI}+00{ 5 SIN}";LO$ 

:rem 146 

1470 GOSUB3160:WS$="":INPUT"{CLR}{GIU 1 }V 
ELOCITA' MEDIA VENTO{ 2 SPAZI}000 
{ 5 SIN}";WSS : rem 101 

1480 WS-VAL(WSS) :rem 182 

1490 RAS-"":INPUT"{CLR}{GIU'JPRECIPITAZIO 
NI{ 2 SPAZI}000{ 5 SIN}";RAS 

:rem 245 

1 500 MPS-STR$(VAL(MP$)+VAL(RAS)) :AP$=STR$ 
(VAL(AP$)+VAL(RA$)) : rem 214 

1510 SNS-"":INPUT"{CLR}{GIU'}NEVE 

{ 2 SPAZI}0000{ 6 SIN}";SN$:rem 219 
1 520 MSS-STRS (VAL(MSS) +VAL(SN$).) :AS$ = STR$ 
(VAL(ASS)+VAL(SN$)) : rem 0 

1 530 RH$ = " M : INPUT"{CLR}{GIU'}UMIDITA' REL 
ATIVA{ 2 SPAZI}00{ 4 SINT";RH$ 

:rem 19 

1540 CC$="":INPUT"{CLR}{GIU*}PERCENTUALE 
CIELO COPERTO{ 2 SPAZl}0ff{ 4 SIN}";C 
C$ :rem 160 

1550 WCS-"":PRINT"{CLR}{GIU'}COMMENTO SUL 
LE CONDIZIONI METEO:" : rem 202 

1560 PRINT"{GIU'}AL MASSIMO 40 CARATTERI 
(UNA LINEA DI SCHERMO.) : rem 159 

1570 PRINT"{RVS}{GIU'}{ 6 SPAZl}N(N USARE 
VIRGOLE E DUE PUNTI.{ 4 SPAZI}":PRI 
NT:INPUTWCS:PRINT"{CLR}" : rem 107 

1 580 RC$=DA$+MO$+YR$+BA$ : rem 36 

1 590 RCS-RCS +CR$ + LEFTS(BL$,1-LEN(CR$)) 

:rem 82 

1600 RCS-RCS+LEFTS(BLS/3-LEN(HI$))+HI$ 

:rem 68 

1610 RC$=RC$+LEFT$(BLS,3-LEN(LO$))+LO$ 

:rem 89 

1620 RC$-RC$+DI$+LEFT$(BL$,1-LEN(DI$)) 

:rem 60 

1630 RCS-RCS+LEFTS(BLS,3-LEN(WS$))+WSS 

:rem 121 

1 640 RCS-RCS+LEFTS(BLS,5-LEN(RAS) )+RA$ 

:rem 78 

1650 RCS-RCS+LEFTS(BLS,4-LEN(SN$))+SNS 

:rem 106 

1660 RCS-RCS+LEFTS(BLS,3-LEN(RH$))+RHS 

:rem 92 

1670 RCS-RCS+LEFTS(BL$,3-LEN(CCS))+CC$ 

:rem 53 


1680 RCS-RCS+WCS + LEFTS(BLS,40-LEN(WCS)) 

:rem 143 

1690 RCS-RCS+LEFTS(BLS,5-LEN(MPS))+MP$ 

:rem 103 

1700 RCS-RCS+LEFTS(BLS,6-LEN(APS))+AP$ 

:rem 72 

1710 RCS-RCS+LEFTS(BLS,5-LEN(ASS))+ASS 

:rem 78 

1720 RCS-RCS+LEFTS(BLS,5-LEN(MSS))+MSS 

:rem 103 

1730 RC%=RC%+1:TR%=TR%+1:R=RC%:IFTR%=721T 
HENTR%=720 :rem 255 

1 740 GOSUB2720 : PRINT" { RVS} { 5 SPAZIÒ DAT 
I SONO CORRETTI (S/N){ 9 SPAZI}" 

:rem 107 

1 750 GOSUB310 :IFGS = "N"THENRC%=RC%-1:TR%=T 
R%-1 :rem 141 

1760 IFG$="N"THENPRINT"RE-INSERÌSCI DALL' 
INIZIO.": FORT-1T02000:NEXT: GOTO190 

:rem 150 

1770 IFG$<>"S"THEN1750 :rem 214 

1 780 GOSUB300:Xl=RC%:GOSUB260:GOSUB280:GO 
SUB290:GOSUB250 :rem 233 

1 790 PRINT#1,RC$:CLOSEl:GOSUB280:PRINT# 1 5 
,"S0:RC.INDEX":CLOSEl5 :rem 154 

1 800 OPEN1,8,2,"RC.INDEX,S,W" : rem 155 

1810 PRINT # 1 ,RC %","TR%","HD$","CD $","MPS" 
,"APS","MSS","ASS:CLOSEl :rem 154 

1820 IFRC%=1ANDTR%=1THEN1850 :rem 139 
1830 NO%(RC%)=RC%:IN$(RC%)=MID$(RCS,7,5): 

IFRC%=1ANDTR%=1THENl850 :rem 147 

1 840 GOSUB2600 : rem 21 

1850 BA-VAL(MID$(RCS,7,5)):CR%=VAL(MID$(R 
C$,12,1)):DI-VAL(MIDS(RCS,19,1)) 

:rem 26 

1860 IFPR-1THENGOSUB230 :rem 178 

1870 PRINT"{CLR}":PRINT"{RVS}{ 7 SPAZI}P 
REVISIONI A LUNGO TERMINE{ 7 SPAZlT 
" :rem 179 

1 880 IFBA> = 764.54ANDCR% = 1ANDDI>-6ANDDI<-8 
THEN2120 : rem 167 

1 890 IFBA> = 764.54ANDCR% = 2ANDDI> = 6ANDDI< = 8 
THEN2130 : rem 170 

1900 IFBA>-764.54ANDBA<-767.08ANDéR%=lAND 
DI>=6ANDDI<=8THEN2070 :rem 173 

1910 IFBA>=764.54ANDBA<=767.08ANDCR%=5AND 
DI>=6ANDDI<=8THEN2080 :rem 179 

1920 IFBA>=764.54ANDBA<-767.08ANDCRI-2AND 
DI>=6ANDDI<=8THEN2100 :rem 170 

1930 IFBA>=764.54ANDBA<-767.08ANDCR%=3AND 
DI>-6ANDDI<=8THEN2110 :rem 173 

1940 IFBA>=764.54ANDBA<-767.08ANDCR%*2AND 
DI<-5ANDDI>=4THEN2140 :rem 171 

1950 IFBA>=764.54ANDBA<=767.08ANDCR%=3AND 
DI = 50RDI = 4THEN2150 : rem 2 

1960 IFBA>-764.54ANDBA<=767.08ANDCR%=2AND 
DI<-4ANDDI>-2THEN2170 :rem 173 

1970 IFBA>=764.54ANDBA<=767.08ANDCR%=3AND 
DI<-4ANDDI>=2THEN2180 :rem 176 

1980 IFBA<=756.92ANDCR%=2ANDDI>=2ANDDI<=3 
THEN2220 :rem 162 

1990 IFBA<=756.92ANDCR%-3ANDDI<-5ANDDI>-3 
THEN2 310 : rem 167 

2000 IFBA<-756.92ANDCR%=3ANDDI<-3ANDDI>=1 
THEN2340 :rem 149 

2010 IFBA<=756.92ANDCR%=5THEN2370 

:rem 131 

2020 IFBA<-764.54ANDCR%-3ANDDI>=4ANDDI<-8 
THEN2260 :rem 157 

2030 IFBA<=764.54ANDCR%-4ANDDI<-6ANDDI>-5 
THEN2280 :rem 160 
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2040 IFBA<=764.54ANDCR%=2ANDDI>=2ANDDI<=3 
THEN2190 : rem 153 

2050 IFBA<=764.54ANDCR%=2ANDDI=4THEN2250 

:rem 79 

2060 PRINT"POCHE VARIAZIONI NELLE PROSSIM 
E 24 H. " :G0T02380 : rem 2 

2070 PRINT"BELLO,PICCOLE VARIAZIONI DI TE 
MPERATURA NEI PROSSIMI GIORNIGOTO 
2380 :rem 14 

2080 PRINT"BELLO OGGI, TEMP. IN AUMENTO C 

ON QUALCHE"; :rem 13 

2090 PRINT"POSSIBILITA 1 DI PIOGGIA NEI PR 
OSSIMI 2{ 2 SPAZI}GIORNI.":GOTO2380 

: rem 77 

2100 PRINT"TEMP.IN AUMENTO, CON PIOGGIA N 

ELLE PROS-SIME 24-36 ORE.":GOTO2380 

:rem 147 

2110 PRINT"TEMP.IN AUMENTO, CON PIOGGIA N 
ELLE PROS-SIME 18-36 ORE.":GOTO2380 

:rem 151 

2120 PRINT"BELLO CON PICCOLE VARIAZIONI N 
ELLA{ Z SPAZI}TEMPERATURA.":GOTO2380 

srem 131 

2130 PRINT"BELLO, CON PICCOLI AUMENTI DI 
TEMPERATU-RA NEI PROSSIMI 2 GIORNI." 

:GOTO2380 srem 101 

2140 PRINT"PRECIPITAZIONI ENTRO 24 ORE."s 

GOTO23I0 srem 132 

2150 PRINT"VENTI RINFORZANTI, PRECIPITAZI 
ONI ENTRO" srem 83 

2160 PRINT"!2-24 ORE."sGOTO2380 srem 228 

2170 PRINT"PIOGGIA ENTRO 12-18 ORE."sGOTO 
2380 srem 240 

2180 PRINT"VENTOSO CON PIOGGIA NELLE PROS 

SIME{ Z SPAZI}12-24 ORE.":GOTO2380 

srem 86 

2190 PRINT"IN INVERNO,{ 2 SPAZI}PRECIPITA 
ZIONI ENTRO 24 ORE" srem 255 

2200 PRINT"IN ESTATE, COPERTO CON VENTI L 
EGGERI.{ 3 SPAZI}PIOGGIA ENTRO UN Gl 
ORNO O DUE" srem 243 

2210 GOTO2380 srem 203 

2220 PRINT"IN ESTATE, PIOGGIA ENTRO 24 OR 
E. srem 128 

2230 PRINT"™ INVERNO, PIOGGIA O NEVE CON 
RINFORZO DEI VENTI. Srem 182 

2240 GOTO2380 srem 206 

2250 PRINT"AUMENTO DELLE PRECIPITAZIONI P 
ER UNO 0{ 2 SPAZI}DUE GIORNI."sGOT02 
380 srem 255 

2260 PRINT"OGGI VENTI FORTI E POSSIBILE P 
IOGGIA"; srem 117 

2270 PRINT"SCHIARITE E PIU' FREDDO DOMANI 
."SGOTO2380 srem 236 

2280 PRINT"SCHIARITE ENTRO POCHE ORE. BEL 
LO. srem T90 

2290 PRINT"TEMPO PER I PROSSIMI GIORNI. 

srem 157 

2300 GOTO2380 srem 203 

2310 PRINT"{RVS} PERICOLO DI TEMPESTA! 

srem 245 

2320 PRINT"VENTOSO CON INTENSE PRECIPITAZ 
IONI OGGI" srem 140 

2330 PRINT"SCHIARITE E PIU' FREDDO DOMANI 
.":GOT02 380 srem 233 

2340 PRINT"VENTI FORTI DA NORD-EST, MOLTA 
PIOGGIA} 2 SPAZI}0 NEVE. srem 39 

2350 PRINT"ABBASSAMENTO DELLA TEMPERATURA 
IN{ 7 SPAZI}INVERNO." 5 rem 29 

2360 GOTO2380 srem 209 


2370 PRINT"SCHIARITE E DIMINUZIONE DI TEM 
PERATURA. srem 44 

2380 IFPR=1THENGOSUB240 srem 177 

2390 GOSUB24 30 sCL=l sIFTR% = 1THENCL»0 sGOSUB 
2660 sG0T02410 srem 61 

2400 GOSUB2460 srem 18 

2410 IFCL=0THENPRINT"{ 2 SPAZI}NON CI SON 
O ALTRI DATI DISPONIBILI."SGOTO2430 

srem 198 

2420 PRINT"ESISTONO DATI SIMILI NEL FILE" 
:GOSUB^4 30 s GOSUB3300 s PRINT"{ 2 SU}" 




s rem 

37 

2430 

CLOSEl5 SGOSUB300 sCLOSEl5 

srem 

8 

2440 

PRINT"{RVS}{ 2 SPAZI}PREMI 

UN TASTO 


PER CONTINUARE{ 9 SPAZI}"; 

srem 

242 

2450 

GOSUB310 :PRINT"{CLR}": RETURN 




srem 

151 

2460 

CL=0 SA=0 sU=l sIFRC% = 1ANDTRI 

=1THEN2600 



s rem 

161 

2470 

U=0 sFORT=lTOTR%:IFT=RC%THEN2490 




s rem 

242 

2480 

IFBA$ = IN$(T)ANDNO%(T)<>RC%THENU = 

U+l s 


HO%(U)=NO%(T) 

s rem 

193 

2490 

NEXTsIFU=0THEN2590 

srem 

152 

2500 

T=0 sC = 0 SGOSUB300:GOSUB2^0 

s rem 

20 

251 0 

T=T+1sRCS="":IFT>UTHEN2590 

s rem 

44 

2520 

XI=HO%(T)S GOSUB260 

srem 

66 

2530 

GOSUB2 50 s FORA=lTOl9 s GET#1, 

A$ 




s rem 

1 89 

2540 

RC$=RC$+A$sNEXT 

s rem 

131 

2550 

IFCR$OMID$ (RC$ ,12,1) THEN251 0 




s rem 

121 

2560 

IFDI$OMID$ (RC$ ,19,1 ) THEN251 0 




srem 

121 

2570 

C=C+1S D%(C)=HO%(C) 

s rem 

177 

2580 

CL=1 SGOSUB330 sRETURN 

s rem 

54 

2590 

CL=0:GOSUB330:RETURN 

s rem 

54 


2600 GOSUB300 sOPEN!,8,2,"BA.INDEX,S,R" 

srem 208 

2610 FORP=lTOTR%:INPUT#!,NO%(P),IN$(P) s NE 
XT:GOSUB330 srem 218 

2620 FORI = 1TOTR% sIFI = RC%THENI = 1+1 

srem 57 

2630 FORJ=ITOTR%sIFIN$(I)<IN$(J)THEN2650 

srem 156 

264 0 HI$ = IN$(I) : IN$(I)=IN$(J) sIN$(J)=HI$s 
NI = NO%(I) :NO%(I)=NO%(J) S NO%(J)=NI 

srem 188 

2650 NEXTsNEXT srem 133 

2660 GOSUB300 s PRINT#15,"SO :BA.INDEX" 

srem 135 

2670 IFTR%=lTHENNO%(1)=RC%SIN$(1)=STR$(BA 
) srem 166 

2680 OPENl,8,2,"BA.INDEX,S,W"s1=0 

srem 128 

2690 1=1+1sIFI>TR%THEN2710 srem 16 

2700 PRINT#!,NO%(I)SPRINT#!,IN$(I)SG0T026 
90 srem 18 

2710 GOSUB330 s PRINT"{CLR}"s RETURN 

srem 152 

2720 IFPR=1THENGOSUB230 srem 174 

2730 PRINT"{CLR}{RVS}RECORD#{OFF}"R; " 

{RVS}INSER.DATI PERs{OFF}";srem 88 

2740 PRINTMIDS(RC$,1,2);"/";MID$(RC$,3,2) 
;"/";MID$(RC$,5,2) srem 123 

2750 PRINT"PRESSIONE BAROMETRICA. "; 

MIDS(RC$,7,5)" M.M." srem 213 

2760 PRINT"TEMPERATURA PIU' ALTA.";s 

HI$=MID$(RC$,13,3) srem 19 

2770 PRINTVAL(HI $)"[<C>]C" s rem 9 
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2780 PRINT"{ 6 SPAZI}NORMALE ALTA. 

.";MH(VAL(MIDS(RC$,3,2)))"[<C>]C" 

:rem 77 

2790 PRINT"TEMPERATURA PIU' BASSA. 

LO$=MID$(RC$,16,3) : rem 61 

2800 PRINTVAL(LO$)"[<C>]C" : rem 13 

2810 PRINT"{ 6 SPAZI}NORMALE BASSA. 

.";ML(VAL(MID$(RC$,3,2)))"[<C>]C" 

:rem 101 

2820 PRINT"DIREZIONE DEL VENTO. 

:rem 210 

2830 WD=VAL(MID$(RCS,19,1)):PRINTDIS(WD) 


2840 

PRINT"VELOCITA' DEL VENTO.. 

: rem 

56 
. " ; V 


AL(MIDF(RC$,20,3));" KM/H" 

: rem 

224 

2850 

PRINT"PIOGGIA (ULTIME 24 H) 


. " ; v 


AL(MIDF(RC$,23,5))" M.M." 

: rem 

38 


2860 PRINT"{ 6 SPAZI}PIOGGIA MENSILE NORM 
.";AR(VAL(MIDS(RCS,3,2)));" M.M." 

:rem 37 

2870 PRINT"{ 6 SPAZI}PIOGGIA/MESE IN DATA 

."; VAL(MIDS(RCS,79,5))" M.M." 

: rem 8 

2880 PRINT"{ 6 SPAZI}PIOGGIA/ANNO IN DATA 

.";VAL(MIDS(RC$,¥3,6))" M.M." 

: rem 7 

2890 PRINT"NEVE (ULTIME 24 H) .";V 

AL(MID^(RC$,28,4))" M.M." :rem 230 

2900 PRINT"{ 6 SPAZI}NEVE/MESE NORMALE... 

.";AS(VAL(MIDS(RCS,3,2)))" M.M." 

:rem 188 

2910 PRINT"{ 6 SPAZI}NEVE/MESE IN DATA... 

.";VAL(MID$(RCS,89,5))" M.M." 

:rem 188 

2920 PRINT"{ 6 SPAZI}NEVE/ANNO IN DATA... 

.";VAL(MIDS(RCS,94,6))" M.M." 




: rem 

188 

2930 

PRINT"UMIDITA' RELATIVA... . 


. " ; V 


AL(MID?(RCS,32,3) ) ;"%" 

: rem 

130 

2940 

PRINT"PERCENTUALE CIELO COPERTO. 

. " ; v 


AL(MID?(RCS,35,3) ) ;"%" 

:rem 

74 

2950 

HI=VAL(HI $) :LO*VAL(LO$):HD=18.3- 

INT ( 


(HI+LO)/2) 

: rem 

203 

2960 

TD=(HI+LO)/2:RH=VAL(MIDS(RCS,32, 

3)) : 


RH=RH/100 

: rem 

87 

2970 

Z=VAL(HD$)+HD:HD$=STR$(Z) 

: rem 

243 

2980 

IFF=1THEN3020 

:rem 

10 

2990 

PRINT"{ 6 SPAZI}TOTALE STAGIONALE... 


. ";HD$:GOTO3020 

: rem 

48 

3000 

CD*(INT(HI+LO)/2)-18.3: 

:rem 

253 

3010 

Z=VAL(CD$)+CD:CD$ = STR$(Z) 

: rem 

21 4 

3020 

PRINTMIDS(RCS,38,40); 

: rem 

188 

3030 

IFPR=1THENGOSUB240 

: rem 

170 

3040 

PRINT:RETURN 

: rem 

110 

3050 

PRINT"{CLR}{ 10 SPAZI}PREVISIONE 

TEM 


PO 

: rem 

T4 7 


3060 GOSUB3070:GOSUB3100:GOSUB3160:PRINT" 
{CLR}":GOSUBl860:RETURN :rem 86 

3070 PRINT"{CLR}{GIU’}INSERISCIPRINT" 
PRESSIONE BAROMETRICA":INPUT" 

T 2 SPAZI}500.0{ 7 SIN}";BA$ 

:rem 183 

3080 BA=VAL ( BAS ) : IFLEN (BA$ ) 05THEN3070 

:rem 174 

3090 RETURN : rem 172 

3100 PRINT"{CLR}{GIU'}TIPO DI VARIAZIONE: 

" :rem 180 

3110 PRINT"VARIAZIONE RAPIDA E'INTESA COM 
E MAGGIOREDI 1.5 M.M. PER ORA. 

: rem 202 


PRINT"{GIU'}SCEGLI :":PRINT"{GIU' ) 
{RVS} 1.{OFFj{ 2 SPAZI}STAZIONARIA"T 
AB(20)"{RVS} 4.{OFF}{ 2 SPAZI}LENTA 
SALITA" : rem 3 

PRINT"{GIU'}{RVS} 2.{OFF}{ 2 SPAZI} 
LENTA DISCESA"TAB(20)"{RVS} 5.{OFF} 

T 2 SPAZI}SALITA RAPIDA" : rem 97 
PRINT"{GIU'}{RVS} 3.{OFF}{ 2 SPAZI} 
DISCESA RAPIDA":PRINT : rem 35 

CR$ = "": INPUTCRS:CR% =VAL(CR$) : RETURN 

:rem 190 

PRINT"{CLR}{GIU'}NUMERO PER LA DIREZ 
IONE DEL VENTO: : rem 43 

PRINT"{GIU'}{RVS} 1.{OFF} NORD"TAB(2 
0)"{RVS} 5.{OFF} SUD : rem 130 

PRINT"{GIU'}{RVS} 2.{OFF} NORD-EST"T 
AB(20)"{RVS} 6.{OFF} SUD-OVEST 

:rem 92 

PRINT"{GIU'}{RVS} 3.{OFF} EST"TAB(20 
)"{RVS} 7.{OFF} OVEST : rem 230 

PRINT"{GIU'}{RVST 4.{OFF} SUD-EST"TA 
B(20)"{RVS} 8.{OFF} NORD-OVEST 

:rem 89 

DI$ = "": : :INPUTDIS:DI=VAL(DI$) : RETURN 

:rem 234 

PRINT"{CLR}{GIU’ }ATTENDERE..." 

:rem 226 

I=FRE(0)-(FRE(0)<0)*65536 :rem 39 

PRINT"{CLR}{GIU’}CI SONO"I"BYTE LIBE 
RI" : rem 1 

PRINT"{ 3 GIU'}PREMI UN TASTO PER RI 



TORNARE" 

: rem 

150 

3260 

PRINT"AL MENU PRINCIPALE." 

: rem 

115 

3270 

GOSUB310 

:rem 

224 

3280 

RETURN 

:rem 

173 

3290 

END 

: rem 

165 

3300 

F=1 :FORX*1 TOC 

: rem 

71 

3310 

IFD%(X)=TR%+1ANDTR%<720THENRETURN 



: rem 

78 

3320 

XI=D%(X):GOSUB260:GOSUB300 

:GOSUB290 



: rem 

148 

3330 

GOSUB250:GOSUB270 

: rem 

51 

3340 

R=D%(X):IFR=RC%THEN3380 

:rem 

122 

3350 

IFR=0THEN3380 

: rem 

22 


3360 GOSUB2720:GOSUB2430 :GOSUB330:Y=Y+1:I 
FY< 4THEND%(X)=D%(X)+1:GOTO3310 

:rem 39 

3370 IFD%(X)+3<D%(X+3)THENX*X+4 :rem 243 

3380 NEXT :rem 13 

3390 PRINT"{ 14 SPAZI}FINE DEL FILE":GOSU 

B330:F=0:RETURN :rem 14 

3400 REM DATI TEMPERATURA PIU' ALTA 

:rem 78 

3410 DATA 00,00,00,00,00,00 :rem 254 

3420 DATA 00,00,00,00,00,00 :rem 255 

3430 REM DATI TEMPERATURA PIU' BASSA 

:rem 153 

3440 DATA 00,00,00,00,00,00 :rem 1 

3450 DATA 00,00,00,00,00,00 :rem 2 

3460 REM DATI PRECIPITAZIONI MENSILI 


DATA 00,00,00,00,00,00 :rem 

DATA 00,00,00,00,00,00 :rem 

REM DATI NEVICATE MENSILI : rem 

DATA 00,00,00,00,00,00 : rem 

DATA 00,00,00,00,00,00 :rem 

DATA"NORD","NORD-EST","EST","SUD- 
", "SUD","SUD-OVEST" : rem 

DATA"OVEST",”NORD-OVEST" : rem 
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Yesterday 


di R. Vickers 

trad. ed adatt. 

di E. Stefani 


Continua la serie di programmi 
musicali presentati sulle pagine 
di SuperCommodore con il no¬ 
tissimo brano dei Beatles, que¬ 
sta volta eseguito in anteprima 
dal vostro C641 


C ome la maggior parte dei program¬ 
mi esclusivamente musicali presen¬ 
tati sui numeri scorsi, anche questo non 
richiede alcun intervento da parte del¬ 
l’utente (a parte, ovviamente, la proce¬ 
dura di caricamento ed attivazione con 
il RUN). 

I programmi che generano brani musi¬ 
cali seguono in genere due tipi di filoso¬ 
fie: la prima consiste nel leggere tutte 
in una volta le istruzioni DATA e cari¬ 
carle all'interno di un grosso vettore 
(come in Old Wild West), richiedendo 
perciò un tempo di attesa iniziale piutto¬ 
sto lungo, ma offrendo per contro 
un’esecuzione più “liscia”. 

La seconda filosofia, usata in questo 
programma, consiste nel suonare una 
nota man mano che essa viene letta in 
un'istruzione DATA, Come vedrete, 
questa volta non è richiesta alcuna atte¬ 
sa iniziale e il programma inizia ad ese¬ 
guire il brano appena gli si dà il RUN; 
la temporizzazione viene effettuata con 
un confronto con il clock interno al C64 
(variabile TI). Lo scotto da pagare per 
questa velocità di esecuzione è una mu¬ 
sica un po’ più “ruvida", pur rimanendo 
tuttavia perfettamente orecchiabile. 
Buon ascolto! 



Yesterday 



170 

POKE 

54296,15 

: rem 

99 





180 

POKE 

Vl+1,9 :POKE V2 + 2,16 

: rem 

241 

100 

POKE53280,0 :POKE53281 ,0:POKE64 6,1 

: PRI 







NTCHRS(1 4) 

: rem 

202 

190 

POKE 

V2 + 1,96 :POKE V2+2,36 

: rem 

43 

no 

PRINT" (CLR) (WHT) { 8 GIU’H 

13 DES}SUP 

200 

POKE 

V3+1,18:POKE V3+2,170 

: rem 

78 


ERCOMMODORE" 

:rem 

48 

210 

T=TI 


: rem 

193 

120 

A$ = "{GIU'}{ 15 DES}" 

:rem 

61 

220 

POKE 

Vi,32 :POKE V2,32 :POKE 

V3,32 


130 

PRINTA$"PRESENTA:":PRINTA$ 

'YESTERDAY 




: rem 

224 


H 

: rem 

16 

230 

READ 

S:IF S=0 GOTO310 

: rem 

90 

140 

Li =54272:L2 = 54279:L3 = 54286 

: rem 

82 

240 

READ 

XI,Y1,X2,Y2,X3,Y3 

:rem 

205 

1 50 

Hi =L1 +1 :H2=L2+1:H3=L3+1 

:rem 

189 

250 

IF XI 

THEN POKE Hi,X’:POKE 

LI,Y1: 

POKE 

160 

Vi =Ll+4:V2=L2 + 4:V3=L3 + 4 

: rem 

241 


VI ,33 

: rem 

89 
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260 

IF X2 

THEN POKE H2,X2:POKE L2,Y2: 

POKE 

1 310 

DATA 

063,009,159,010,028,214 



V2,33 treni 

96 



t rem 

78 

270 

IF X3 

THEN POKE H3,X3:POKE L3,Y3: 

POKE 

1320 

DATA 

019,063,017,037,040,025 



”3,33 :rem 

103 



t rem 

76 

280 

T=T+S' 

*1.45 treni 

239 

1330 

DATA 

177,019,063,016,047,010 


290 

IF T>TI GOTO290 :retn 

45 



t rem 

82 

300 

GOTO220 : rem 

96 

1 340 

DATA 

019,063,000,000,000,000 


310 

FORJ=L1 TO 54296 :POKE J,0:NEXT J 




t rem 

49 



: rem 

254 

1350 

DATA 

020,022,227,019,063,015 


1000 

DATA 

010,025,177,017,037,014 




t rem 

73 



: rem 

69 

1360 

DATA 

070,010,028,214,022,227 


1010 

DATA 

107,010,022,227,000,000 




t rem 

72 



: rem 

48 

1370 

DATA 

017,037,050,028,214,022 


1020 

DATA 

000,000,040,022,227,000 




t rem 

77 



: rem 

44 

1380 

DATA 

227,017,037,010,025,177 


1030 

DATA 

000,000,000,020,011,114 




t rem 

86 



: rem 

36 

1390 

DATA 

017,037,014,107,010,022 


1040 

DATA 

000,000,000,000,020,019 




t rem 

71 



: rem 

39 

1400 

DATA 

227,000,000,000,000,040 


1050 

DATA 

063,016,047 ).010,205,010 




trem 

42 



: rem 

64 

1410 

DATA 

022,227,000,000,000,000 


1060 

DATA 

028,214,000,000,000,000 




t rem 

43 



: rem 

46 

1420 

DATA 

020,011,114,000,000,000 


1070 

DATA 

010,032,094,000,000,000 




r 9 9 9 9 

trem 

39 



: rem 

49 

1430 

DATA 

000,020,019,063,016,047 


1080 

DATA 

000,010,036,085,021,154 




t rem 

69 



: rem 

67 

1440 

DATA 

010,205,010,028,214,000 


1090 

DATA 

025,177,010,038,126,000 




t rem 

57 



: rem 

75 

1450 

DATA 

000,000,000,010,032,094 


11 00 

DATA 

000,000,000,010,043,052 




trem 

51 



: rem 

39 

1460 

DATA 

000,000,000,000,010,036 


Ilio 

DATA 

000,000,000,000,010,045 




t rem 

43 



trem 

35 

1470 

DATA 

085,021,154,025,177,010 


11 20 

DATA 

198,000,000,000,000,015 




t rem 

83 



: rem 

50 

1 480 

DATA 

038,126,000,000,000,000 


1130 

DATA 

043,052,028,214,022,227 




trem 

55 



trem 

73 

1 490 

DATA 

010,043,052,000,000,000 


1140 

DATA 

005,038,126,000,000,000 




t rem 

51 



: rem 

53 

1 500 

DATA 

000,010,045,198,000,000 


1150 

DATA 

000,040,038,052,000,000 




trem 

56 



: rem 

51 

1 510 

DATA 

000,000,015,043,052,028 


1160 

DATA 

000,000,020,008,147,000 




t rem 

59 



trem 

52 

1520 

DATA 

214,022,227,005,038,126 


1170 

DATA 

000,000,000,020,022,227 




t rem 

77 



t rem 

48 

1530 

DATA 

000,000,000,000,040,038 


1180 

DATA 

019,063,007,163,010,038 




t rem 

46 



trem 

80 

1 540 

DATA 

052,000,000,000,000,020 


1190 

DATA 

126,000,000,000,000,010 




t rem 

41 



t rem 

43 

1 550 

DATA 

008,147,000,000,000,000 


1 200 

DATA 

038,126,000,000,000,000 




t rem 

53 



t rem 

45 

1560 

DATA 

020,022,227,019,063,007 


1 210 

DATA 

010,034,075,021,154,017 




t rem 

77 



t rem 

67 

1 570 

DATA 

163,010,038,126,000,000 


1220 

DATA 

037,010,030,141,000,000 




t rem 

66 



t rem 

47 

1 580 

DATA 

000,000,010,038,126,000 


1230 

DATA 

000,000,010,028,214,000 




trem 

57 



t rem 

46 

1590 

DATA 

000,000,000,010,034,075 


1240 

DATA 

000,000,000,010,025,097 




trem 

57 



trem 

53 

1 600 

DATA 

021,154,017,037,010,030 


1250 

DATA 

000,000,000,000,020,030 




trem 

64 



t rem 

35 

1610 

DATA 

141,000,000,000,000,010 


1260 

DATA 

141,022,227,017,037,010 




t rem 

37 



trem 

71 

1620 

DATA 

028,214,000,000,000,000 


1270 

DATA 

028,214,000,000,000,000 




t rem 

48 



trem 

49 

1 630 

DATA 

010,025,097,000,000,000 


1280 

DATA 

030,028,214,000,000,000 




t rem 

56 



. trem 

53 

1640 

DATA 

000,020,030,141,022,227 


1290 

DATA 

000,020,025,097,017,037 




t rem 

59 



t rem 

77 

1650 

DATA 

017,037,010,028,214,000 


1300 

DATA 

010,205,020,022,227,019 




t rem 

70 



trem 

61 
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1660 DATA 000,000,000,030,028,214 

:rem 55 

1670 DATA 000,000,000,000,020,025 

:rem 45 

1680 DATA 097,017,037,010,205,020 

:rem 81 

1690 DATA 022,227,019,063,009,159 

:rem 96 

1700 DATA 010,028,214,019,063,017 

:rem 75 

1710 DATA 037,040,025,177,019,063 

:rem 86 

1720 DATA 016,047,010,019,063,000 

:rem 70 

1730 DATA 000,000,000,020,022,227 

:rem 50 

1740 DATA 019,063,015,070,010,028 

:rem 77 

1750 DATA 214,022,227,017,037,050 

:rem 80 

1760 DATA 028,214,022,227,017,037 

:rem 86 

1770 DATA 040,028,214,019,063,016 

:rem 84 

1780 DATA 047,040,028,214,021,154 

:rem 83 

1790 DATA 018,042,020,038,126,028 

treni 86 

1800 DATA 214,022,227,020,043,052 

:rem 69 

1810 DATA 034,075,025,177,020,045 

treni 84 

1820 DATA 198,038,126,030,141,010 

treni 81 

1830 DATA 043,052,028,214,022,227 

treni 80 

1840 DATA 010,038,126,000,000,000 

treni 56 

1850 DATA 000,030,043,052,030,141 

treni 62 

1860 DATA 025,177,010,038,126,000 

treni 80 

1870 DATA 000,000,000,020,034,075 

treni 59 

1880 DATA 030,141,021,151,020,038 

srem 71 

1890 DATA 126,000,000,000,000,080 

treni 57 

1900 DATA 028,214,022,227,017,037 

trem 82 

1910 DATA 040,028,214,019,063,016 

srem 80 

1920 DATA 047,040,028,214,021,154 

srem 79 

1930 DATA 018,042,020,038,126,028 

srem 82 

1940 DATA 214,022,227,020,043,052 

srem 74 

1950 DATA 034,075,025,177,020,045 

srem 89 

1960 DATA 198,038,126,030,141,010 

srem 86 

1970 DATA 043,052,028,214,022,227 

srem 85 

1980 DATA 010,038,126,000,000,000 

srem 61 

1990 DATA 000,030,043,052,030,141 

srem 67 

2000 DATA 025,177,010,038,126,000 

srem 67 


2010 

DATA 

000,000,000,020,034,075 




s rem 

46 

2020 

DATA 

030,141,021,151,020,043 




s rem 

54 

2030 

DATA 

052,000,000,000,000,020 




s rem 

36 

2040 

DATA 

045,198,022,227,011,114 




s rem 

78 

2050 

DATA 

020,034,075,000,000,000 




s rem 

50 

2060 

DATA 

000,020,030,141,000,000 




s rem 

4’ 

2070 

DATA 

000,000,020,028,2’4,000 




s rem 

50 

2080 

DATA 

000,000,000,010,025,177 




s rem 

55 

2090 

DATA 

017,037,014,107,010,022 




s rem 

69 

2100 

DATA 

227,000,000,000,000,040 




s rem 

40 

21 10 

DATA 

022,227,000,000,000,000 




s rem 

41 

2120 

DATA 

020,0’1,114,000,000,000 




s rem 

37 

2130 

DATA 

000,020,019,063,016,047 

• 



srem 

67 

2140 

DATA 

010,205,010,028,214,000 




s rem 

55 

2150 

DATA 

000,000,000)010,032,094 




s rem 

49 

2160 

DATA 

000,000,000,000,010,036 




s rem 

41 

2170 

DATA 

085,021,154,025,177,010 




s rem 

81 

2180 

DATA 

038,126,000,000,000,000 




s rem 

53 

2190 

DATA 

010,043,052,000,000,000 




s rem 

49 

2200 

DATA 

000,010,045,198,000,000 




s rem 

54 

2210 

DATA 

000,000,015,043,052,028 




s rem 

57 

2220 

DATA 

214,022,227,005,038,126 




t rem 

75 

2230 

DATA 

000,000,000,000,040,038 




s rem 

44 

2240 

DATA 

052,000,000,000,000,020 




t rem 

39 

2250 

DATA 

008,147,000,000,000,000 




s rem 

51 

2260 

DATA 

020,022,227,019,063,007 




s rem 

75 

2270 

DATA 

163,010,038,126,000,000 




s rem 

64 

2280 

DATA 

000,000,010,038,126,000 




s rem 

55 

2290 

DATA 

000,000,000,010,034,075 




s rem 

55 

2300 

DATA 

021 ,1 54,01 7,037,010,030 




t rem 

62 

2310 

DATA 

141,000,000,000,000,010 




s rem 

35 

2320 

DATA 

028,214,000,000,000,000 




s rem 

46 

2330 

DATA 

010,025,097,000,000,000 




s rem 

54 

2340 

DATA 

000,020,030,141,022,227 




s rem 

57 

2350 

DATA 

017,037,010,028,214,000 




srem 

68 
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2360 

DATA 

000,000,000,030,028,214 


2710 

DATA 

000,000,000,020,034,075 




: rem 

53 



: rem 

53 

2370 

DATA 

000,000,000,000,020,025 


2720 

DATA 

030,141,021,151,020,043 




: rem 

43 



: rem 

61 

2380 

DATA 

097,017,037,010,205,020 


2730 

DATA 

052,000,000,000,000,020 




: rem 

79 



: rem 

43 

2390 

DATA 

022,227,019,063,009,159 


2740 

DATA 

045,198,022,227,011,114 




: rem 

94 



: rem 

85 

2400 

DATA 

010,028,214,019,063,017 


2750 

DATA 

020,034,075,000,000,000 




:rem 

73 



: rem 

57 

2410 

DATA 

037,040,025,177,019,063 


2760 

DATA 

000,020,030,141,000,000 




: rem 

84 



: rem 

48 

2420 

DATA 

016,047,010,019,063,000 


2770 

DATA 

000,000,020,028,214,000 




: rem 

68 



: rem 

57 

2430 

DATA 

000,000,000,020,022,227 


2780 

DATA 

000,000,000,010,025,177 




: rem 

48 



:rem 

62 

2440 

DATA 

019,063,01 5,070,010,028 


2790 

DATA 

017,037,014,107,010,022 




: rem 

75 



: rem 

76 

2450 

DATA 

214,022,227,017,037,050 


2800 

DATA 

227,000,000,000,000,040 




: rem 

78 



: rem 

47 

2460 

DATA 

028,214,022,227,017,037 


2810 

DATA 

022,227,000,000,000,000 




:rem 

84 



:rem 

48 

2470 

DATA 

040,028,214,019,063,016 


2820 

DATA 

020,011,114,000,000,000 




:rem 

82 



: rem 

44 

2480 

DATA 

047,040,028,214,021,154 


2830 

DATA 

000,020,019,063,016,047 




: rem 

81 



: rem 

74 

2490 

DATA 

018,042,020,038,126,028 








: rem 

84 

2840 

DATA 

010,205,010,028,214,000 


2500 

DATA 

214,022,227,020,043,052 




:rem 

62 



:rem 

67 

2850 

DATA 

000,000,000,010,032,094 


2510 

DATA 

034,075,025,177,020,045 




: rem 

56 



: rem 

82 

2860 

DATA 

000,000,000,000,010,036 


2520 

DATA 

198,038,126,030,141,010 




: rem 

48 



:rem 

79 

2870 

DATA 

085,021,154,025,177,010 


2530 

DATA 

043,052,028,214,022,227 




: rem 

88 



:rem 

78 

2880 

DATA 

038,126,000,000,000,000 


2540 

DATA 

010,038,126,000,000,000 




: rem 

60 



: rem 

54 

2890 

DATA 

010,043,052,000,000,000 


2550 

DATA 

000,030,043,052,030,141 




: rem 

56 





2900 

DATA 

000,010,045,198,000,000 




: rem 

60 



:rem 

61 

2560 

DATA 

025,177,010,038,126,000 


2910 

DATA 

000,000,015,043,052,028 




:rem 

78 



: rem 

64 

2570 

DATA 

000,000,000,020,034,075 


2920 

DATA 

214,022,227,005,038,126 




:rem 

57 



: rem 

82 

2580 

DATA 

030,141,021,151,020,038 


2930 

DATA 

000,000,000,000,040,038 




: rem 

69 



: rem 

51 

2590 

DATA 

126,000,000,000,000,080 


2940 

DATA 

052,000,000,000,000,020 




: rem 

55 



:rem 

46 

2600 

DATA 

028,214,022,227,017,037 


2950 

DATA 

008,147,000,000,000,000 




: rem 

80 



:rem 

58 

2610 

DATA 

040,028,214,019,063,016 


2960 

DATA 

020,022,227,019,063,007 




:rem 

78 



:rem 

82 

2620 

DATA 

047,040,028,214,021,154 


2970 

DATA 

163,010,038,126,000,000 




: rem 

77 



: rem 

71 

2630 

DATA 

018,042,020,038,126,028 


2980 

DATA 

000,000,010,038,126,000 




: rem 

80 



:rem 

62 

2640 

DATA 

214,022,227,020,043,052 


2990 

DATA 

000,000,000,010,034,075 




:rem 

72 



: rem 

62 

2650 

DATA 

034,075,025,177,020,045 


3000 

DATA 

021,154,017,037,010,030 




:rem 

87 



: rem 

60 

2660 

DATA 

198,038,126,030,141 ,010 


3010 

DATA 

141,000,000,000,000,010 




: rem 

84 



: rem 

33 

2670 

DATA 

043,052,028,214,022,227 


3020 

DATA 

028,214,000,000,000,000 




:rem 

83 



:rem 

44 

2680 

DATA 

010,038,126,000,000,000 


3030 

DATA 

010,025,097,000,000,000 




:rem 

59 



:rem 

52 

2690 

DATA 

000,030,043,052,030,141 


3040 

DATA 

000,020,030,141,022,227 




: rem 

65 



:rem 

55 

2700 

DATA 

025,177,010,038,126,000 


3050 

DATA 

017,037,010,028,214,000 




:rem 

74 



:rem 

66 
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3060 DATA 000,000,000,030,028,214 

:rem 51 

3070 DATA 000,000,000,000,020,025 

treni 41 

3080 DATA 097,017,037,010,205,020 

treni 77 

3090 DATA 022,227,019,063,009,159 

treni 92 

3100 DATA 010,028,214,019,063,017 

treni 71 

3110 DATA 037,040,025,177,019,063 

treni 82 

3120 DATA 016,047,010,019,063,000 

treni 66 

3130 DATA 000,000,000,020,022,227 

treni 46 

3140 DATA 019,063,015,070,010,028 

trem 73 

3150 DATA 214,022,227,017,037,050 

trem 76 

3160 DATA 028,214,022,227,017,037 

trem 82 

3170 DATA 020,022,227,017,037,014 

trem 73 

3180 DATA 107,020,028,214,000,000 

trem 61 

3190 DATA 000,000,020,025,177,019 

trem 69 

3200 DATA 063,012,216,020,019,063 

trem 69 

3210 DATA 000,000,000,000,020,022 

trem 34 

3220 DATA 227,019,063,015,070,010 

trem 73 

3230 DATA 028,214,022,227,017,037 

trem 80 

3240 DATA 060,028,214,022,227,017 

trem 77 

3250 DATA 037,000 trem 58 
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Per collaborare a SUPERCOMMODORE 


La rivista è interessata ad articoli e programmi per C64 di interesse generale, chiari ed 
esaurienti. Vi proponiamo una piccola “guida”, che ha particolarmente lo scopo di rendere 
più accurata la stesura dei vostri manoscritti: seguendo i nostri consigli si accresceranno le 
probabilità che le vostre buone idee e i vostri programmi vengano pubblicati. 


1 l’angolo superiore sinistro della prima pagina 
dovrà contenere: nome, cognome, indirizzo, 
numero telefonico, codice fiscale, data di spedi¬ 
zione, luogo e data di nascita. 

2 l’angolo superiore destro della prima pagina 
dovrà contenere la marca e il tipo di compu¬ 
ter al quale il lavoro si riferisce, unitamente ad 
eventuali espansioni di memoria o periferiche ri¬ 
chieste. 

3 il titolo dell’articolo, sottolineato, dovrà ini¬ 
ziare a circa due terzi in altezza della prima 
pagina. 

4 le pagine seguenti potranno essere battute 
normalmente, con la condizione che l’angolo 
superiore destro contenga un’abbreviazione del 
titolo e del cognome, unitamente al numero di 
pagina. Per esempio, Sprite Ed.../Brambilla/2. 

5 il testo dell’articolo dovrà essere battuto a 
macchina con interlinea di uno spazio e mez¬ 
zo, massimo due spazi; un margine di almeno un 
centimetro dovrà essere lasciato su entrambi i 
lati dello scritto. 

6 dovranno essere usati fogli in formato UNI 
A4 (cm. 21 x 29,7) e il testo, scritto in carat¬ 
teri maiuscoli e minuscoli, dovrà occupare una 
sola facciata del foglio. 

7 nel caso il testo comprenda più fogli, questi 
dovranno essere uniti con un fermaglio o con 
un punto metallico aperto. 

8 avendo intenzione di spedire più di un artico¬ 
lo, questi dovranno essere inviati separata- 
mente insieme alla rispettiva copia su supporto 
magnetico. 

9 programmi brevi (meno di 20 linee) potranno 
essere inseriti nel testo, mentre programmi 
più lunghi dovranno essere listati separatamente. 
E ESSENZIALE per noi disporre di una copia 
del programma registrata più volte su supporto 
magnetico, su entrambi i lati dello stesso. E prefe¬ 
ribile usare nastri di buona qualità e di lunghezza 
non eccessiva; la cassetta o il disco dovranno 
essere etichettati con il nome dell’autore, il titolo 
dell’articolo, il computer interessato e soprat¬ 
tutto le eventuali espansioni richieste. Come sug¬ 


gerimenti di programmazione si consiglia di usa¬ 
re le istruzioni “CHR$( x )”, “TAB( x )”, SPC( x 
)”, piuttosto che stringhe di manipolazione del 
cursore. 

Ad esempio, per uno scroll di 5 linee l’istruzione 
“FORI = 1T05:PRINT:NEXT”. è molto più in¬ 
terpretabile di 5 Q inverse; e, invece di una dozzi¬ 
na di simboli di cursore a destra, perché non 
usare semplicemente “PRINT SPC (12)”? Un ra¬ 
pido controllo dei programmi per operare queste 
sostituzioni sarà molto apprezzato da noi e dai 
lettori. 


1 fbper maggior chiarezza, all’interno dell’ar- 
& V ticolo è conveniente usare caratteri maiu¬ 
scoli riferendosi a istruzioni BASIC (esempio RE¬ 
TURN, LIST, RND, PRINT ecc.). Se si desidera 
evidenziare una parola, è preferibile sottolinearla 
piuttosto che scriverla in carattere maiuscolo. 

^ ^ Sii articoli ed i programmi potranno avere 
A A qualsiasi lunghezza: da una routine di una 
sola linea fino a programmi molto complessi. 

^ €% volendo includere diapositive, queste do- 
JL Avranno avere formato 24x36, o 6x6. 

^ O non prenderemo in considerazione artico- 
JL li che siano stati sottoposti ad altre case 
editrici. 


1 /I mater * a l e non pubblicato non verrà re- 
JL istituito. 

< £? il compenso per la collaborazione presta- 
Jl 3ta sarà commisurato alla complessità e 
all’interesse del testo e/o del programma (da un 
minimo di L. 50.000 a un massimo di L. 
300 . 000 ) Il pagamento verrà effettuato in caso 
di pubblicazione del lavoro. 


Inviate idee e programmi a: 

SUPERCOMMODORE 
Viale Restelli, 5 
20124 Milano 

e saremo lietissimi di pubblicare i contri¬ 
buti migliori. 

La Redazione 
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di M. Crlstaib Grizzi 



Il libro del C64 - Volami 1 e 2 

Edizioni J. Soft 

Un libro in due volumi per i possessori 
di C64 che desiderano apprenderne i 
segreti, senza per questo tediarsi con la 
lettura di noiosi manuali: le caratteristi¬ 
che e le possibilità del noto computer 
vengono scoperte tramite l'osservazio¬ 
ne del funzionamento di programmi di 
utilità contenuti nelle due cassette alle¬ 
gate (ed integralmente listati all’interno 
dei volumi) e con la lettura dei relativi 
capitoli che abbinano la tecnica alla 
semplicità di esposizione. 

Tra le cose più interessanti e meno note 


anche agli “smanettoni”, vengono svela¬ 
te tutte le particolarità della miscono¬ 
sciuta istruzione WAIT, le utilizzazioni 
più insolite e sorprendenti della istruzio¬ 
ne REM e i meandri logici delle IF e 
AND. 

Capitoli separati vengono riservati alla 
gestione del video, con gli immancabili 
SPRITE e la descrizione di tutte le po¬ 
tenzialità — e il modo di sfruttarle nei 
propri programmi - del chip video VIC- 
II. Viene trattata in modo approfondito 
la gestione del joystick da programma, 
fattore indispensabile se si intendono 
realizzare videogame, insieme a una 
completa trattazione dalle tecniche di 


finestratura dello schermo. 

II secondo volume analizza innanzi tutto 
le periferiche interfacciabili al C64, con 
particolare riguardo alla più importan¬ 
te, cioè il disk drive 1541, che viene 
dettagliatamente descritto insieme al 
DOS 5.1 (quello fornito sul dischetto 
dimostrativo allegato alla confezione 
del drive). 

I due ultimi capitoli sono riservati alle 
applicazioni più avanzate, quali la ge¬ 
stione della memoria del C64 (e come 
ottenere ben 16 Kbyte aggiuntivi...), la 
programmazione in Assembly e le tecni¬ 
che di utilizzo del monitor in linguaggio 
macchina che è incluso nella cassetta. 


I prezzi sono riservati 
ai lettori e sono scontati 
del 10% rispetto 
al prezzo di copertina 
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Per VIC 20 vendo espansione 3 «byte 
più 3 cartucce giochi, alimentatore, 
adattatore TV, diversi giochi e pro¬ 
grammi su cassetta, manuale d'istru¬ 
zioni, libro di introduzione al BASIC a 
L. 170.000 trattabili. Davide Zanirato 


Via alle Fabbnche. 46 10072 Caselle 
Torinese (TO) Tel. 011/991623 

Vendo o cambio programmi per C 64. 
Giochi, utility e personali Simons’ BA 
SIC con manuale in italiano. Inviatean- 
che la vostra lista, la mia ègratis. Rena¬ 
to Lemmi Via Togliatti, 30 56025 
Pontedera (PI) 

Cambio, vendo programmi per C 64, 
VIC 20 e C 16, tra cui giochi ed utility. 
Inviate L. 500 in francobolli per ricevere 
la lista. Emilio Garofalo Via S Bernar¬ 
dino 83047 Lioni (AV) Tel, 
0827/42357 

Per C 64 vendo giochi in Turbo Tape a 
L. 1.000-2.000 cadauno più costo della 
cassetta. Dispongo di; Ghostbusters, 
Missione Impossibile. Beach Head. Po- 
le Position, Basket. Pilfall 11, Decath¬ 
lon, Popeye. Aztec. Suicide Strake, 
ecc. Telefonare dopo le 18.00. Andrea 
Tura • Via Camelie, 17 20045 Cusano 
Milanino (MI) Tel 02/6133020 

Per VIC 20 vendo memoria 8 «byte 
con possibilità di spostare gli 8 Kbyte 
sul blocco 5 a L 60 000 Cartuccia He- 
smon (Monitor) completa di manuale a 
L. 60 000. Ivan Cardin - Via G Delti 
Orzi, 34 25100 Brescia Tel. 

030/2667370 

Compro, cambio con altri programmi 
(oltre 150) il programma "PET Speed 
64". il compilatore BASIC che aumenta 
di 40 volte le capacità del computer 
nell'esecuzione di programmi BASIC. 
Possibilmente deve essere compatibile 
con "Simons' BASIC". Alfonso Di Pa 
squale Via Pantaleo Carabellese. 30 
70126 Bari Tel. 080/336016 

Per C 64 compro, cambio, vendo soft 
ware di ogni tipo: giochi, copiatori, 
compilatori, decompilatori. data base, 
linguaggi, ingegneria edile. Tutto ga¬ 
rantito, su disco o nastro. Telefonare 
ore pasti Antonino Bambino - Via Ro 
ma - 89018 Villa San Giovanni (RC) 
Tel 0965/758389 

Vendo in blocco 500 programmi su di 
sco per C 64 a L. 150.000. Spese postali 
a carico del destinatario. Daniele Ghie- 
ne Via Cantore 16149 Genova - Tel. 
010/464374 

Vendo VIC 20 più registratore 1530 
(Mod C2N), manuale in italiano, car- 
tridge "Omega Race”, 5 giochi su cas¬ 
setta. 3 Kbyte super expander cartrid- 
ge. libro giochi, numerosi listati, il tutto 
a L. 200.000. Alessio Chiari Via A. 
Gramsci. 32 50031 Barberino Mugello 
(FI) Tel. 055/8417947 

Vendo VIC 20 con espansione fino a 32 
Kbyte RAM più videogame e utility. 
Salvatore Costantino Via Bonsignon, 
119 25080 Prevalle (BS) 


Siamo due giovanissimi appassionati di 
computer e con la testa a posto. Cer¬ 
chiamo filantropi e benefattori disposti 
a spedirci computer danneggiati, in 
qualunque condizione (anche ridotti in 
polvere). Horror Software c/o Gabrie¬ 
le Zaverio - Viale Montedoro, 73 • 96100 
Siracusa (SR) 

Nova Soft Busters Club C 64: vendia 
mo programmi, da L. 3.000 a L. 8.000 
cadauno: per i soci L. 1,000 a program¬ 
ma. Disponiamo di oltre 2 000 pro¬ 
grammi. Richiedete la nostra lista gra¬ 
tuitamente. Nova Soft Club C 64 - Via 
della Caserma, 6-D - 55048 Torre del 
Lago (LU) Tel 0583/343463 

Vendo più di 100 programmi per C 64 
Cassette con 30 giochi a L. 10.000. Di¬ 
spongo di di: Pole Position, Soccer, Pil- 
stop, Burger Time, Decathlon, ecc. Per 
ricevere la lista scrivere a: Luigi Masca 
rello Via Don Milani. 17 20033 Desio 
t MI I 

Compro registratore e joystick per 
VIC 20 e giochi su cassetta a prezzo 
ragionevole. Scrivere a: Giuseppe Po- 
cai Via Pontardeto - 55036 Pieve Fo- 
sciana (LU) 

Dispongo di oltre 500 programmi per C 
64 c sono disposto a venderli o a scam 
biarli. Tra i tanti possiedo anche Ten¬ 
nis, Summer Games II (Olimpiadi se 
conda versione) e il sensazionale pro¬ 
gramma "Spectrum 48 Kbyte", col 
quale si può caricare sul C 64 qualsiasi 
programma per lo Spectrum. Telefona¬ 
re solo al sabato pomeriggio o la dome 
nica. Renato Verduci Via Gaspare del 
Fosso, 17 89100 Reggio Calabria - Tel. 
0965/330600 

Compro e vendo, con la massima sene 
tà. programmi su cassetta o disco per 
C 64. Dispongo di centinaia di utility, 
tra cui Koala Pianter, Copy. Spectrum 
Emulator, Fast Load che carica il pro¬ 
gramma più lungo da disco in 20 secon¬ 
di Inoltre centinaia di videogame come 
Beach Head, Summer Games, Calcio 
con replay, ecc Ognuno per la ridicola 
somma di L. 3.500. Alessandro Libera 
tore Via Ferdinando Acron, 76-00122 
Ostia Lido (RM) Tel.06/5627558 

Per C 64 vendo giochi e programmi su 
cassetta Annuncio sempre valido; 
tratto solo con Livorno e provineia. Te■ 
lefonare a: Stefano Noia Piazza Dan¬ 
te, 83 57100 Livorno - Tel. 

0586/4026670 

Vendo VIC 20, registratore e 15 casset¬ 
te a L. 200.000. Davide Dargenio Via 
Porta, 17 - 20090 Vimodrone Tel. 
2504432 


1001 per registratore non dedicato, In¬ 
troduzione al BASIC" parte seconda 
(con due cassette), manuale, 2 cassette 
giochi; il tutto in ottime condizioni a 
sole L. 300.000. Telefonare a : Ignazio 
Martines - Via Mazziere, 46 90100 
Termini Imerese (PA) - Tel, 091/943371 

Se cerchi il miglior software sul merca¬ 
to, io dispongo degli ultimi arrivi. Strip 
Poker 111, Gi Joe, Karateka, The Hob- 
bit II, ecc. Telefonate o scrivete. Dame 
le Noris - Via S Bernardino, 1 - 24100 
Bergamo Tel. 035/224500 

Vendo interfaccia di collegamento per 
Apple e C 64 a L. 50.000, nuova, mai 
usata e completa di software. Daniele 
Noris - Via S. Bernardino, 1 - 24100 
Bergamo - Tel 035/224500 

Attenzione! Sei interessato all'acquisto 
di qualche programma per C 64 a prez 
zi fallimentari, hai finalmente trovato 
l'annuncio giusto: potrai scegliere tra 
una vastissima gamma di programmi, 
oltre 700 su disco o cassetta. I prezzi 
non superano mai le L. 1 500 Ulteriori 
sconti per acquisti superiori a 20 pro¬ 
grammi. Flavio Girardi - Viale Salan¬ 
do. 42 70124 Bari - Tel. 080/221458 

Vendo VCS Atari più 5 cassette (Star 
Raiders, Defender, Circus Alari, Su 
perman. Combat), alimentatore, 2 joy 
stick, 2 paddle, il tutto come nuovo a 
sole L. 200.000. Ignazio Martines Via 
Mazziere, 46 90100 Termini Imerese 
(PA) Tel 943371 

Vendo i migliori videogame per C 64 su 
disco o cassetta. Invio gratis lista con 
descrizioni dettagliate. Otto giochi L. 
15.000. Alessandro Morganti - Piazza 
T. Gaddi, 1 50142 Firenze ■ Tel. 

055/226259 

Per C 64 vendo circa 200 giochi a prez¬ 
zi bassissimi Vendo inoltre Turbo Ta¬ 
pe e giochi per VIC 20 a L. 7.00 cadau¬ 
no esclusa cassetta. Scrivere o telefo¬ 
nare. Antonio Ruggeri Via Salita Sta¬ 
zione, 1 98040 Venetico Marina (ME)- 
Tel. 090/9941752 

Vendo nastro contenente circa 50 gio¬ 
chi e utility a sole L. 50.000. Disponibili 
tà di programmi come S A M. Simons' 
BASIC. Gyruss, Calcio, Decathlon 
Vendo e cambio inoltre altri giochi ed 
utility. Telefonare ore pasti. Carmelo 
Starrantino • Via Com Todaro, 32 • 
98026 Nizza Sicilia (ME) Tel. 
0942/71574 

Cedesi programmi Impossible Mission. 
Ghostbusters e Track e Field per C 64; 
tutti con Turbe Tape, su nastro e dupli- 
cabilissimi in cambio del compilatore 
Petspeed, sempre per C 64. Gianluca 
Flamini - Via Teano, 1 • 00177 Roma 
Tel 06/290194 

Vendo computer Victory completo di 
cartucce Corsa, Bioritmi. Flipper, Po¬ 
ker. Musica a L. 100.000. Possibilità di 
disegnare. Fernando Riommi • Via 
Trento. 91 • 8046 Lamezia Terme (CZ) 
Tel. 25310 


Vendo giochi per C 64. Posseggo; 
Ghostbusters. Mission Impossible, 
Predatore, One On One, Bruce Lee, 
Falcon Patrol II, ecc. Sante Riommi • 
Via Trento, 91 88046 Lamezia Terme 
(CZ) - Tel. 25310 

Vendo Atari VCS 2600 completo di 
cartucce Indy 500. Combat, Defender 
VendoaL. 170.000.dueannidivita,ma 
mai usato causa possesso di C 64 Op¬ 
pure cambio con VIC 20 Fernando 
Riommi Via Trento. 91 88046 Lame- 
zia Terme (CZ) Tel. 25310 

Ho appena acquistato un C 64 : compro 
programmi gestionali e utility, anche in 
LM, su cassetta e completi di istruzioni 
per principianti. Compro anche slam 
panie in buono stalo. Inviare lista. An 
nuncio sempre valido Angelo Tripi 
Via Mad. Pellegrina, 64 20010 Bareg 
gio (MI) 

Per VIC 20 vendo magnifici giochi tra 
cui: Tommy, Frogger. Totocalcio, 
Blitz, Amok, Sci, Abductor.ecc. Per C 
64: Calcio. Pac Man. Summer Games, 
Mission Impossible. ecc. Alessandro 
Tiberi Via Suor Celestina Donatis. 
115 00167 Roma Tel. 06/6287759 

VIC 20 software Club cerca cartridge o 
copie per scambi Programmi espansi, 
informazioni e trucchi, segreti del VIC. 
Cinzia Ceccarini Via Di Vittorio. 10 - 
58022 Follonica (GR) 

Vendo a prezzi irrisori ultime novità 
per C 64: Summer Games, Bruce Lee. 
Volo su Mosca, Ghostbuster. Simons' 
BASIC. Magic Desk, Totl3, lutti i tipi 
sprotetlon; su disco e cassetta. Richie 
dere lista. Franco Guadagni Via della 
Stazione. 2 - 52010 Capolona (AR) 
Tel. 05751/48052 

Veneto cartuccia "Radar Rat Race" per 
VIC 20 a L. 30.000, usata pochissimo e 
con custodia originale. Pagamento 
contrassegno Ruggero Scorlioni Via 
Casa Grossi, 19 41028 Serramazzoni 
(MO) Tel 059/952469 

A sole L. 16.000 (tutto compreso) ven 
do i seguenti programmi per C 64: Tool 
64, Forth 64, Pascal, Simons' BASIC, 
Easy Script, Copy 190. Koala Soft, 
S.A.M., Doctor, Music Machine. Per 
programmi su disco L. 4.000 in più. 
Annuncio sempre valido, scrivete a: 
Paolo Schirra - Via Taranto, 4 09170 
Oristano Tel 0783/259666 

Cambio, vendo cartridge per VIC 20 a 
L. 10.000 cadauna. Dispongo di: Pin 
ball, Omega Race. VIC Slot, Super 
Smash. The Sky Is Falling. Mission Im 
possible, The Count, Avcnger. Ancora 
imballati. Rivolgersi a: Enrico Cuoco 
Via Milano, 125/12 20024 Garbagnate 
Milanese (MI) Tel. 02/9959088 

Vendo, cambio più di 400 programmi 
per C 64 a prezzi da L. 350 a L 1.700 
cadauno su cassetta. Risposta assicu 
rata e immediata. Mando lista gratuita 
su richiesta. Adriano Bocchese Via G. 
Marconi, 8 37050 Belfiore (VR) Tel 
045/7640331 







Per una 
serata 

diversa 



Lido è un gioco nuovo, 
diverso, elettrizzante. 

È il gioco di chi 
ama il rischio. 

Più eccitante 
della roulette, 
più emozionante 
del baccarat. 

Si gioca puntando 
su cinque colori 
in combinazione 
con diciannove palline. 
Le probabilità 
sono moltissime 
e fanno vincere anche 
100 volte la posta. 

Il segreto del gioco 
è tutto nel suo 
"bussolotto cromato”. 
Lido: il gioco 
che tutti i casinò 
del mondo invidieranno. 


Via BERGAMO 12 - 20135 MILANO 
TEL. 54.56.887 (3 linee) 























Spectrum 


GRUPPO EDITORIALE 


CHIEDI IN EDICOLA IL TUO 


DIVISONE GRANDI OPERE 



































